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Is het einde van de huiscomputer nabij? Met de golf MS-DOS klonen, die tegenwoor¬ 
dig als de ‘nieuwe’ huiscomputer zo in de belangstelling staan, lijkt het erop. Ons colle- 
ga-blad Commodore Dossier heeft in ieder gevafhet bijltje er bij neer gegooid, zelfs voor 
de toch redelijk populaire Amiga willen ze geen blad meer maken. Maar Commodore- 
Info gaat door, u hoeft dit blad zelfs niet halverwege om te draaien om het te kunnen le¬ 
zen. En we verwachten uit de voormalige CD hoek ook nog wel wat leuke redactione¬ 
le bijdragen. 

Toch is net een teken des computertijds, dat een bepaald type computer langzamer¬ 
hand uit beeld raakt. We hebben dat gezien met de TRS-80, Tl 99, de aloude Sinclair 
ZX-81 en Spectrum, zelfs de Apple II is in ons land vrijwel uitgestorven. Dat is vaak voor 
de aanhangers moeilijk te verteren, maar het is nu eenmaal een harde waarheid, dat 
alles aan mode en commercie onderhevig is. Op dit moment zijn er nog meer dan ge¬ 
noeg C-64 en C-128 gebruikers om bijvoorbeeld het voortbestaan van dit blad zeker te 
stellen. Toch heeft u vast gemerkt, dat bijvoorbeeld het aanbod aan nieuwe software 
aan het opdrogen is. En dat is jammer voor de echte spelfanaten, want wat er voor de 
veelal zwart/witte schermen van de PC’s aan spelsoftware te krijgen is, is veel beperk¬ 
ter dan de creatieve rijkdom van de C-64 en Amiga catalogi. 

Misschien dat we, zeker nu de aanschaf van een C-64 als computer erbij toch wel heel 
betaalbaar is geworden, een nieuwe belangstelling zien groeien voor dit soort huiscom- 
puters. Naast de PC voor het serieuze werk een leuke spel/huiscomputer voor de edu¬ 
catieve programma’s en het leuke speelwerk. Zeg niet, dat een revival er niet inzit. Met 
Kerstmis waren daar de winkels weer uitverkocht, de tijden van Atari VCS spelcompu¬ 
ter waren weer (even) terug. Of is er na een eerste golf in het begin van de jaren '80 nu 
juist een meer volwassen en stabiele markt ontstaan? We wachten af, als enige echte 
en oudste Commodore blad in de Benelux is 1989 voor ons weer vol beloftes. 

Luc Sala 
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Onder de titel GEOS INFO verzorgen Bert Venema en Peter Boncz een rubriek voor 
de gebruikers van dit populaire besturingssysteem. Lezers worden van harte uitgeno¬ 
digd om al hun vragen, tips en trucs op te sturen. 


GEOS-INFO 



Public Domain Disk 

Het eerste deel van deze rubriek staat 
geheel in het teken van de GEOS- 
INFO Public Domain diskette, die ln- 
folist voor Commodore Info op de 
markt brengt. Deze diskette bevat een 
verzameling van GEOS programma’s, 
zowel in BASIC als in machinetaal, die 
deels al in dit blad zijn verschenen bij 
de artikelen van Peter Boncz. Dege¬ 
nen die dus problemen hadden bij het 
intikken, kunnen het zich nu gemakke¬ 
lijk maken. Maar er zijn ook nieuwe 
programma’s bij, zoals de Geopaint- 
Catcher, en de GEOS-Monitor. Hier¬ 
onder vindt U een korte bespreking 
van alle programma’s. 

Geos Program-Maker 

Dit programma is het hulpmiddel voor 
de huis-tuin en keuken GEOS- pro¬ 
grammeurs. Het is in BASIC geschre¬ 
ven en is al in dit blad verschenen (Cl 
nr. 6 1988). De program-maker schrijft 
een deel van het geheugen weg naar 
disk op GEOS manier. Dit programma 
is noodzakelijk voor de GEOS-machi- 
netaalcursus als U het officiële GeoP- 
rogrammer-pakket van Berkely Soft- 
Works niet in huis hebt! 

Geos Fontmaker 

De fontmaker is een BASIC program¬ 
ma waarmee de gebruiker zelf letter¬ 
types kan ontwerpen, en is beschre¬ 
ven in Commodore Info nr5,1988. Het 
ontwerpen van fonts gebeurt in de edit 
mode, waarbij de tussentijdse resulta¬ 
ten ook kunnen worden weggeschre¬ 
ven. 

Fontmaker commando’s (edit mode): 

RETURN: puntje veranderen (aan/uit) 

F1 - volgende ASCII teken 

F3 - vorige ASCII teken 

F5 - naar hoofdmenu 

F7 - letterbreedte 1 punt smaller 

F8 - letterbreedte 1 punt breder 

Geopaint-lmporter 

Dit programma haalt Geopaint teke¬ 
ningen naar BASIC. Op deze wijze 
kunt U Uw BASIC-programma's heel 


simpel voorzien van mooie graphics 
en laadplaten. Het ook bijgeleverde 
programma Geos-showmaker SAVEd 
de geïmporteerde beelden zo, dat ze 
door het showprogramma (lees ver¬ 
der) kunnen worden gebruikt. De 
Geopaint-lmporter komt uit de Com¬ 
modore Info nr 3, 1988. 

Geopaint-Catcher 

Met de Geopaint-Catcher kan men 
plaatjes uit spelletjes e.d. naar Geo- 
Paint halen. Het algemene procédé is 
als volgt: als het plaatje dat U wilt heb¬ 
ben van een spelletje in beeld is, drukt 
U op de Resetknop. Als U dan de 
Geopaint-Catcher inlaadt, kan het ge¬ 
hele geheugen afgezocht worden. Het 
programma zet dan uw keuze op disk. 
In Geopaint kunnen deze tekening 
dan verder bewerkt worden (om deze 
later eventueel met Geopaint-lmport 
weer in BASIC-programma’s te ver¬ 
werken). D.m.v. een machinetaalrouti- 
ne kunnen ook plaatjes uit de scha- 
duw-RAM (onder de ROM) nog naar 
GEOS gehaald worden. 

GEOS Showlader 

Dit deels in machinetaal geschreven 
programma geeft U de mogelijkheid 
zelf op een simpele manier schitteren¬ 
de shows met de mooiste plaatjes in 
elkaar te draaien. Het werkt samen 
met het programma Geopaint-lmpor¬ 
ter, zodat u schermen in Geopaint 
kunt tekenen en later in shows gebrui¬ 
ken. Runt U het programma vooral 
eens. De show die er nu inzit mag op 
z’n zachtst gezegd bijzonder heten! 

Monitor 

Aangezien GEOS het Disk-systeem 
bij uitstek is, zult U van de disk-moni- 
tor veel profijt hebben. Deze oor¬ 
spronkelijke C-64 utility werd door Pe¬ 
ter Boncz omgebouwd tot een echte 
GEOS applicatie, die vanuit de 
DeskTop op te starten is. Met de Mo¬ 
nitor is het mogelijk gegevens direct 
op disk te zien, te veranderen en weer 
weg te schrijven. Directories, tracks 


en sectoren zijn gesneden koek voor 
Monitor-bezitters! 

De Monitor commando’s zijn: 
r track sector - track en sector zijn 
beide hexadecimale getallen, r staat 
voor ’read’ (lees een disk-blok) 
w track sector - track en sector weer 
hex. getallen, w betekent ’write’ 
(schrijf een disk-blok weg) 
m - laat het blok zien dat in het geheu¬ 
gen zit 
? - hulpmenu 

QuickTop VI.2 

Dit is de applicatie die vorige maand 
in de GEOS-rubriek werd gelist. In 
deze listing stonden overigens nog 
wat fouten. Lees daarvoor de hierbij 
geplaatste rectificatie. Met de Public 
Domain diskette bent u overigens van 
het probleem af. De Quicktop is een 
beknopte Desktop. Dit programma is 
erg handig voor het snel wisselen tus¬ 
sen applicaties. Vooral mensen die 
met GeoProgrammer programmeren, 
kunnen veel profijt hebben van de 
QuickTop. Het programma Kernal-ln- 
stal installeert de Kernal zo, dat bij het 
opstarten niet de deskTop, maar de 
QuickTop geladen wordt. QuickTop 
werkt alleen voor GEOS VI .2 en VI .3. 


l^pni 

rgp, Application 

QUICKTOP 1.2 
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BESTELLEN 

De GEOS Public Domain Disk 1, met 
alle besproken titels, is te bestellen 
door overmaking van ƒ 12,- op giro 
1585491 t.n.v. Infolist Amsterdam, 
o.v.v.: ‘GEOS INFO PD Disk’. 

Let op: programma’s alleen te gebrui¬ 
ken in samenwerking met Geos. 
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Vragen, tips & trucs 


Rectificatie voor Quicktop 
VI.2 (Cl nr. 8, 1988): 

1) in $1564 moet r2H in rOH veranderd 
worden, en r2L in rOL. 

2) over de hele listing moet r12H wor¬ 
den veranderd in rl 1H en rl 2L in rl 1L 

3) In $14ed moet LoadW r0,r3 worden 
veranderd in: 

Ida $0a 
sta $02 
Ida $0b 
sta $03 

4) Over de hele listing moet het teken 
’ vervangen worden door het teken " 

5) Er waren een aantal namen fout: 
CalcBlocksFree wordt CalcBIksFree 
DoDialogBox wordt DoDIgBox 
CurDirFlead wordt curDirHead 

Het is misschien overbodig te vermel¬ 
den, maar de GeoProgrammer-ge- 
bruikers moeten aan het begin van de 
list ’include geosSym’ en ’include ge- 
osMac’ toevoegen (zoals altijd). 

GeoMail 

M. Rolloos uit Krimpen aan de IJssel 
vraagt of het mogelijk is om Printshop 
plaatjes over te zetten naar Geo- 
Paint? Dit is inderdaad mogelijk met 
behulp van de applicatie Graphics 
Grabber die op de DeskPack plus disk 
wordt geleverd. Wat betreft het printen 
van GeoWrite files door de scheurlijn 
van het papier, het volgende. Stel de 
dipswitches van uw printer eerst juist 
in, de kans bestaat dat deze niet cor¬ 
rect staan. Verder dient u de juiste 
printerdriver te gebruiken. Op uw 
vraag of u de garantiekaart moet op¬ 
sturen, antwoorden wij met ja!! U bent 
dan namelijk geregistreerd als gebrui¬ 
ker en u wordt vervolgens op de hoog¬ 
te gehouden van nieuwe produkten en 
upgrades. 

De heer A. Verheugd uit Den Bosch 
kreeg de teleurstelling van dit jaar te 
verwerken. Nadat zijn SYSTEM disk 
onbruikbaar was geworden en werd 
vervangen door een nieuwe disk, be¬ 
gon de ellende! Het is namelijk bij de 
1.3 versie niet mogelijk om eerder 
geïnstalleerde applicaties te gebrui¬ 
ken. In een vorig nummer van Com¬ 
modore Info is hieraan uitgebreid aan¬ 
dacht besteed. Wanneer u nu de 
nieuwste 2.0 versie aanschaft is dit 
probleem verholpen, omdat tijdens 
het installatieproces wordt gevraagd 
of eerder gebruikte applicaties "boot- 
able" moeten worden gemaakt met de 


GEOS 2.0 versie. Dit is het enige ad¬ 
vies wat wij u kunnen geven, helaas! 

M.A. Cornet uit Santpoort krijgt GEOS 
niet afgedrukt op z’n Star SG10 met 
Centronics interface. Vele goedbe¬ 
doelde adviezen hebben hem nog niet 
kunnen helpen. Wellicht is het volgen¬ 
de een oplossing. Probeer de printer¬ 
driver Star NX-10 als eerste printer¬ 
driver op de diskette te plaatsen. Helpt 
dit niet dan blijft er maar één oplossing 
over en dat is uw printer serieel aan te 
laten sturen. Dit betekent dat u inder¬ 
daad een andere kabel en interface 
nodig heeft. Voor informatie hierover 
kunt u zich misschien het beste wen¬ 
den tot een goede hardwarezaak of 
een Commodore gebruikersgroep. 
Een andere oplossing is de aanschaf 
van GEOS 2.0. Dit pakket beschikt 
over meer dan 70 printerdrivers. Hier 
moet dan wel een printer-driver voor u 
bij zijn. 

Dhr. Hammink uit Den Haag vraagt 
ons waar hij een REU (Ram Expan- 
sion Unit) kan aanschaffen, teneinde 
zijn Commodore 64 met GEOS snel¬ 
ler te laten werken. Na enige telefoon¬ 
tjes met enkele computerzaken heeft 
hij er nog steeds geen kunnen be¬ 
machtigen. Allereerst wil ik opmerken 
dat een 1764 REU uw C64 niet uit- 
breidt naar 512 Kb maar uitbreidt met 
128 Kb. Wat bertreft de aanschaf van 
een REU dient u contact op te nemen 
met Commodore Nederland, Postbus 
8192, 1005 AD Amsterdam. Zij kun¬ 
nen u wellicht verder helpen met het 
zoeken naar een dealer. Het afdruk¬ 
ken van GEOS bestanden op een la¬ 
serprinter wordt door Berkeley alleen 
de Apple Laserjet genoemd. Over het 
gebruik met de Linotronic i.s.m. 
GEOS is ons niets bekend. 

Ton Krijnen uit Hoensbroek zou graag 
letters met leestekens (zoals 
ï,é,ë,enz) in GEOS willen gebruiken. 
Dit is mogelijk met de applicatie Geo- 
Font, welke wordt meegeleverd met 
het pakket GeoSpell. Is dit pakket in 
Nederland nog niet te koop, dan kunt 
u uit het "Grote GEOS-boek" (uitgeve¬ 
rij DataBecker) de applicatie Font-Edi- 
tor intikken. Hiermee kunt u alle be¬ 
staande fonts aanpassen en ook zelf 
letterfonts ontwerpen. Dat uw printer 
niet de juiste WYZIWYG functie af¬ 
handelt ligt misschien aan de gebruik¬ 
te printerdriver. U dient nl. de Commo¬ 
dore Compat driver te gebruiken. 
Over de laserprinter kunt hiervoor le¬ 
zen. 

Aerts Francis uit Blankenberge (B) 
vraagt hoe hij van een document van 


bv. 6 bladzijden alleen pag 3. kan af¬ 
drukken. Wanneer de printoptie wordt 
geselecteerd verschijnt een dialoog¬ 
venster waar u kunt opgeven vanaf 
welke pagina tot welke pagina geprint 
moet worden. In de afbeelding 1 is dit 
dus van pag. 1 tot pag. 1 


| geos : filé \ edit 

optionïj page \ font \ stgle ! 

1 ADUERTENTIE §= 
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die middels de productiviteit tot uiting 
kan vorden gebracht. 


De applicatie GeoWrite 2.1 wil bij M. 
Rottine uit Noordbroek niet opstarten. 
Na de aanschaf van GEOS 2.0 is een 
kopie gemaakt van de applications 
diskette en begonnen met de pro¬ 
gramma’s. Steeds verscheen weer 
een melding betreffende het "installa¬ 
tieproces". Voordat u met een bepaal¬ 
de applicatie gaat werken dient u deze 
te allen tijde te installeren op de orgi- 
nele diskette. In dit geval dient u dus 
eerst het GeoWrite-programma te in¬ 
stalleren op de orginele "apllications 
disk". Dit doet u door het GeoWrite- 
icoon tweemaal aan te klikken, waar¬ 
door na enige seconden een venster 
verschijnt met de melding "GeoWrite 
installed". Vervolgens kunt u de Ge¬ 
oWrite applicatie naar een werkdisk 
copiëren en gebruiken. 

Een enigszins "boze" brief ontvingen 
wij van dhr. Hans Verheij uit Zwijnd- 
recht. Hij heeft op de laatste Compu¬ 
ter Infobeurs de nieuwste GEOS 2.0 
gekocht. Nu wilt het geval dat zijn 
GEOS niet werkt met zijn printer, een 
Citizen 120D met orginele parallelle 
interface. Vreemd genoeg, want ook 
printers met dit soort interfaces wer¬ 
ken normaal met GEOS. Misschien 
dient er op de printer een dipswitch 
omgezet te worden, zodat deze als 
device#4 wordt aangemerkt. Laatst 
kregen we nog een enthousiaste mel¬ 
ding van een gebruiker over zijn 
GEOS met een printer en een Wiese- 
mann paralelle interface. De stelling 
van dhr. Verheij dat GEOS alleen zou 
werken met een seriële interface is 
niet correct. Op andere printers zijn 
wel degelijk Centronics aansluitingen 
mogelijk. Het enige advies wat we u 
kunnen geven is een briefje naar Ber¬ 
keley Softworks in Amerika te sturen 
(het adres staat in de handleiding), zij 
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zullen u dan verder helpen betreffende uw probleem. U 
dient natuurlijk wel uw registratiekaart opgestuurd te 
hebben. 

Rebooten 

Dhr. Parmentier uit Zevenaar heeft problemen met zijn 
GeoCalc. Na het aanklikken verschijnt steeds een dia¬ 
loogvenster met de melding "Reboot your system with 
the same GEOS disk that was first used to run GeoCalc". 
Deze melding duidt er op dat uw GeoCalc is geïnstal¬ 
leerd met een eerdere versie van GEOS (bv. 1.3), terwijl 
uw systeem is geboot met versie 2.0. U had tijdens het 
installeren van GEOS 2.0 de mogelijkheid om uw oude 
software ook te kunnen laten draaien onder de nieuwe 
versie. Nu GEOS 2.0 eenmaal is geïnstalleerd kunt u dit 
niet meer realiseren. 

De heer De Deckere uit Brugge (Belgie) schrijft ons een 
heel verhaal over het "kraken" van GEOS software. U 
zult begrijpen dat wij als gerenommeerd en integer blad 
hier niet op in kunnen gaan. Wat betreft uw vraag of Ber- 
keley Softworks hun GEOS software voorzien van een 
bepaald virus, moet ik u antwoorden dat dit niet het ge¬ 
val is. Als u inderdaad een op hol geslagen computer 
heeft naar aanleiding van het gebruik van illegale soft¬ 
ware, denk ik dat u eens te rade moet gaan bij uw leve¬ 
rancier. Ons is echter niets bekend over virussen, die het 
illegaal copiëren van GEOS software moeten voorko¬ 
men. 

Tot Slot 

Heeft u problemen met GEOS, die als oorzaak hebben 
het niet functioneren van de software, ga dan altijd eerst 
na of uw drive wel in orde is. Is deze in orde, wendt u dan 
tot uw leverancier. Voorts kan het zijn dat uw brief niet 
gelijk in deze rubriek behandeld wordt of zelfs helemaal 
niet. In het eerste geval is dit te wijten aan ruimtegebrek 
(er zijn nu eenmaal meer vragen, dan dat er ruimte is) 
en ten tweede kan het door u geschetste probleem 
reeds in een ander antwoord behandeld zijn. Eén op¬ 
merking moet ons nog even van het hart. Er werd in een 
brief gevraagd of we wel eens hadden gehoord van 
"software-ondersteuning". U dient zich te realiseren dat 
deze GEOS Info-rubriek een service van Commodore 
Info is en geen support-afdeling van Berkeley Softworks. 
Dus komt u gerust ook eens met nuttige tips voor uw me¬ 
degebruiker i.p.v. kritiek!! 


VIA DE PTT OF ONZE SERVICE-DESK 

ESCOIM 

REPARATIE 

SERVICE 


Een storing in uw microcomputer of randapparatuur? 
Niet aarzelen, maar direct opsturen naar Nederlands 
grootste en enige door Commodore en Schneider 
geautoriseerde Third Party Maintenance specialist: 

ESCON. 


ESCON GARANDEERT U DE SNELSTE 
EN MEEST PROFESSIONELE 
REPARATIESERVICE VOOR UW 
COMMODORE EN/OF SCHNEIDER 
COMPUTERS OF RANDAPPARATUUR 


U kunt natuurlijk ook op afspraak langskomen bij onze 
service-desk, waar tegen geringe vergoeding "klaar 
terwijl u wacht service” tot de mogelijkheden behoort. 
De retourzending per PTT/Bode is steeds voor onze 
rekening, bij langskomen ontvangt u een korting van 
f 5,50. Op alle door ons uitgevoerde reparaties geven 
wij 45 dagen garantie. 

HOMECOMPUTERS: CBM’s, C64, 
C128, C128D AMIGA’s. Business 
computers: PC10, PC20, AMIGA 
2000, 1512, 1640, JOYCE 
RANDAPPARATUUR: MONITORS, 

Commodore printers, drives, tape units 

Schneider 

f rnmoi irrn nu iicihn 
Lui IruicK uii^iJiui i 


ELECTRONIC SERVICE CONTRACTORS BV 






Tot slot wensen Bert Venema en Peter Boncz U nog een 
zeer voerspoedig 1989! 



Antoniuslaan 1, 3341 GA H.l,Ambacht. Tel. 01858-12766. 


Escon is bovendien uiterst bedreven in 
installatie en onderhoud van alle typen 
computers en randapparatuur. 

Van privé-p.c.’s tot micro-systemen. 
Laserprinters, plotters en netwerken. 
Escon biedt de zekerheid dat de meest 
geavanceerde apparatuur probleemloos 
werkt en blijft werken! 
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Voor de gebruiker die al met GEOS werkt lijkt het pakket wellicht een open boek. Maar 
wie verder wil gaan in het leren van de allerfijnste kneepjes van GEOS, zal bemerken 
dat er nog heel wat meer is dan men dacht. 

Efficiënt GEOS gebruik deel 1 


B ij het lezen van dit artikel zult u bemerken dat ervan wordt uitgegegaan 
dat de GEOS gebruiker enige ervaring heeft opgedaan met deze user-in- 
terface. Een complete verhandeling van de basisprincipes vindt u terug in 
de met het pakket meegeleverde handleiding. Derhalve wordt hieraan dus 
geen aandacht besteed. Het gaat puur om een uitleg op welke wijze GEOS 
nog beter gebruikt kan worden. 


| geos i file 

uieiu 

disk i 




IGED5 leest van links naar rechts s - / 
|en van boven naar beneden '§MMM t 

*§§ii' ii wmm f«®§®ii fi ■■ fz~i 


Afbeelding 1. 


Bestandsbeheer in GEOS 

De DeskTop van GEOS biedt veel mo¬ 
gelijkheden om op eenvoudige wijze 
met bestanden te manipuleren. U 
dient hierbij wel op een aantal zaken 
te letten. Zo moet u nooit een disket¬ 
te uit de drive verwijderen zonder dit 
met de "open"optie te melden. Het 
verwisselen van een diskette is, be¬ 
houdens een enkele uitzondering, al¬ 
leen mogelijk wanneer men zich in de 
DeskTop bevindt. Een andere "error" 
treedt op wanneer u de drive uitscha¬ 
kelt, terwijl u met GEOS bezig bent. 
GEOS is namelijk zo geprogram¬ 
meerd dat de functies van de DiskTur- 
bo in het geheugen van de drive wor¬ 
den opgeslagen. Het uitschakelen 
van de drive heeft gegarandeerd een 
"crash" tot gevolg. U doet er verstan¬ 
dig aan om uw GEOS werkdiskettes 
allemaal een andere naam te geven. 
GEOS zal problemen ondervinden op 
het moment dat u bestanden naar een 
diskette wilt kopiëren met eenzelfde 
naam als de brondiskette. 

Om uw diskettes te reorganiseren is 
de DeskTop uitermate geschikt. Het 
verwijderen van overtollige files kan 
door ze eenvoudig in de ‘prullemand' 
te gooien. Let wel, bij de nieuwere ver¬ 
sies is het noodzakelijk om de te ver¬ 
wijderen files eerst naar de border te 
brengen. Dit in verband met een extra 
beveiliging ter voorkoming van onge¬ 
wenste verwijderingen. Om de volgor¬ 
de binnen de DeskTop te veranderen 
brengt u de te verplaatsen files naar 
de border. U kunt maximaal 8 files in 
de border plaatsen. Vervolgens gaat u 
naar de gewenste bladzijde van de 
DeskTop en brengt daar de files heen. 
U dient er wel op te letten dat u de 
door u benodigde printerdriver altijd 
vooraan laat staan. GEOS leest na¬ 
melijk vanaf de eerste bladzijde van 
linskboven naar rechtsboven en ver¬ 


volgens van linksonder naar rechtson¬ 
der (zie afb. 1). 

Printen van bestanden 

Het is niet noodzakelijk om een appli¬ 
catie, GeoWrite of GeoPaint, te ope¬ 
nen om een bestand te kunnen prin¬ 
ten. U kunt ook rechtstreeks vanaf de 
DeskTop printen. U klikt in zo’n geval 
het te printen bestand tweemaal aan. 
Het "icoon" zal nu oplichten. Vervol¬ 
gens brengt u het "icoon" naar het 
printericoon naast de prullemand. 
Denk erom dat u het bestand niet in de 
prullemand gooit. Vervolgens klikt u 
nogmaals en het betreffende dialoog¬ 
venster verschijnt. Wanneer u op 
deze wijze een bestand wilt printen, 
dient te allen tijde de betreffende ap¬ 
plicatie op de actuele diskette te 
staan. Dus als u een GeoWrite doku- 
ment wilt printen zal het GeoWrite pro¬ 
gramma op de diskette moeten 
staan. 


Tips voor GeoPaint 

Om een goed resultaat te bereiken 
met GeoPaint is het belangrijk te we¬ 
ten hoe de afmetingen, alsmede de 
schaal van een tekening is geregeld 
binnen dit krachtige tekenprogramma. 
Allereerst dient hierbij opgemerkt te 
worden dat de te bewerken pagina 
groter is dan het GeoPaint venster dat 
op het beeldscherm zichtbaar is. De 
afmetingen van het totale werkopper- 
vlak bedragen 640 pixels breed bij 
720 pixels hoog. Totaal beschikt men 
dus over 460800 pixels (beeldpunt- 
jes). Normaliter is het grafisch scherm 
van de C64 maar 320*200=64000 
pixels. De vraag is nu hoe de tekening 
uiteindelijk op papier terecht komt. Het 
resultaat is afhankelijk van het type 
printer dat u gebruikt. Zo is het bijvoor¬ 
beeld met een Star NL10 mogelijk om 
de gehele GeoPaintbreedte afgedrukt 
te krijgen op een vel papier. Om te be¬ 
palen of uw printer eveneens in staat 
is de gehele werkbreedte af te druk- 
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bluffende resultaten bereikt 
worden. U kunt natuurlijk 
een doorgetrokken lijn be¬ 
werken met de spuitbus¬ 
optie. Alleen is dan het re¬ 
sultaat dat er een onregel¬ 
matig onderbroken lijn ont¬ 
staat. Om nu bv. een regel¬ 
matige stippellijn te teke¬ 
nen moet eerst een bepaal¬ 
de kwast geselecteerd 
worden. Hiertoe selecteert 
u, d.m.v. de change-brush 
optie, de vijfde kwast uit de 
onderste rij. Djt is het kort¬ 
ste liggende streepje. Er 
zijn ook leuke resultaten te 
bereiken met kwast zeven. 
Daarop volgend kunt u een 
gewenst vulpatroon selec¬ 
teren. In figuur 2 treft u een 
aantal voorbeelden aan 
met de bijbehorende vulpa- 


baar, die aangeeft waar de actuele 
window zich bevindt. Door de aanwijs- 
pijl op dit rechthoekje te plaatsen en 
met de muis te klikken kunt u de actie¬ 
ve window sneller verplaatsen. Hier¬ 
door hoeft het programma niet alle 
tussenliggende informatie te lezen 
waardoor de actie verloopt (figuur 3). 

De UNDO functie 

De functie Undo heeft tot gevolg dat 
de laatste handeling ongedaan wordt 
gemaakt. Het is echter noodzakelijk 
dit gelijk na de foutieve actie te doen. 
U kunt dus niet eerst iets anders doen. 
Het activeren van een pull-down 
menu is zelfs al voldoende om de 
Undo-functie te negeren. U kunt Undo 
maar één keer gebruiken, om een fout 
te herstellen. Het ongedaan maken 
van twee fouten is hierdoor niet moge¬ 
lijk. 


afbeelding 2. 

ken, dient u uw printermanual te raad¬ 
plegen. 

Uit het GeoPaint tekenmenu, dat zich 
links op het beeldscherm bevindt kun¬ 
nen diverse gereedschappen gese¬ 
lecteerd worden door op een keuze te 
klikken. Enkele gereedschappen heb¬ 
ben echter een extra functie wanneer 
men er tweemaal op klikt. Hiervoor 
dient het desbetreffende icoon reeds 
geactiveerd te zijn. Dit kunt u zien om¬ 
dat deze dan in "inverse" is weergege¬ 
ven. Als eerste gereedschap, welke 
met een dubbel klik een extra functie 
heeft, noemen we de vlakgom. Wan¬ 
neer u dit icoon dubbel klikt zal het ge¬ 
hele GeoPaint venster worden gewist. 
Indien u zich in de "pixel-edit" modus 
bevindt zal alleen hetgeen dat op dat 
moment is weergegeven worden ge¬ 
wist. Het dubbel klikken op het "mar¬ 
keer" icoon heeft tot gevolg dat het ge¬ 
hele venster wordt gemarkeerd. Wan¬ 
neer u vervolgens het gemarkeerde 
gedeelte in z’n geheel in een PhotoS- 
crap wilt plaatsen, klikt u tweemaal 
snel op het markeer-icoon en vervol¬ 
gens selecteert u uit het editmenu de 
optie cut of copy. 

Ten aanzien van het kwast icoon kunt 
u door tweemaal te klikken hetzelfde 
bereiken als met de keuze change 
brush uit het option-menu. Er verschij¬ 
nen dan 32 kwast-types, waaruit u 
een keuze kunt maken. 

Fantasielijnen in GeoPaint 

GeoPaint heeft geen standaard-optie 
om stippellijnen e.d. te tekenen. Maar 
met een beetje fantasie kunnen ver- 


tronen. 

Het spreekt vanzelf dat de 
plaats van de lijn bepaalt hoe deze 
eruit gaat zien. Er zijn bepaalde vulpa- 
tronen die afhankelijk van de plaats in 
het venster een ander resultaat ge¬ 
ven. Het is dus een goede zaak dit 
voor uzelf eens uit te proberen. 

Verplaatsen van de 
actieve window 

Het gebruik van de scroll-pijlen is een 
methode om de actieve window te 
verplaatsen naar een andere plaats 
binnen de pagina. Er is echter een 
snellere methode om dit te doen. On¬ 
derin het beeldscherm bevindt zich 
het status-venster. Binnenin dit ven¬ 
ster is een blauwe rechthoek zicht¬ 


Tot zover enkele tips betreffende de 
GEOS Desktop en de applicatie Geo¬ 
Paint. Een volgende keer zullen we in¬ 
gaan op enkele nuttige aanwijzingen 
van de andere applicaties. We hopen 
echter dat we met deze informatie een 
bijdrage kunnen leveren aan een nog 
optimaler gebruik van deze user-inter- 
face voor de Commodore 64/128. 
Veel Succes! 

Bert Venema. 

voor al uw reakties: 

GEOS INFO Rubriek 
Postbus 43048 
1009 ZA Amsterdam 
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Deze maand een technisch artikel van Peter Boncz dat zich deze keer niet met machi¬ 
netaal zal bezighouden (de cursus gaat volgende maand verder). Ditmaal enige tips 
en trucs voor Geopaint en een listing die U nog te goed had: de Geopaint-Catcher. 

Geopcrint Tips & Tricks 

H eel GEOS, en dus ook Geopaint, werkt in de high-resolution bit- mapped 
mode, ook wel APA (All Point Adressable) genoemd. Dit houdt in, dat het 
Hires-scherm 320*200 puntjes heeft. Met kleur zit het echter een beetje 
vreemd. Het APA scherm werkt in principe maar in 2 kleuren. Deze zijn ove¬ 
rigens willekeurig te kiezen uit de 16 kleuren waarover de C-64 beschikt. Het 
vreemde zit hem in de beperkte keuzevrijheid, want deze twee kleuren kun¬ 
nen per blokje van 8 bij 8 puntjes steeds opnieuw gekozen worden. 



Illustratie 1 


Toolbox 

Om dat ook in Geopaint mogelijk te 
maken (dit kan sinds versie VI .2) is er 
aan de onderkant van de Toolbox (de 
vertikale balk met Icons aan de linker¬ 
kant van het scherm) de optie ‘color’. 
Het pijltje wordt dan een blokje van 8 
bij 8, en er kan een achtergrond (‘can¬ 
vas’) en een voorgrond (‘paint’) kleur 
worden gekozen. 

Maar hier beginnen dan vaak de pro¬ 
blemen. Neem een geval dat U twee 
driehoeken wilt maken: een blauwe, 
en een groene. De blauwe ligt boven¬ 
dien een beetje onder de groene. Als 
U Uw tekening echter wilt gaan inkleu¬ 
ren, dan zult U zien dat altijd een van 
beide driehoeken ontsierd zal worden 
door opduikende lichtgrijze (achter- 
grondkleur) blokjes. 

Amiga 

De oorzaak hiervan is heel simpel: U 
bent in het bezit van een Commodore 
64, en niet van een Amiga. De moge¬ 
lijkheden van zo’n C64 zijn natuurlijk 
beperkt. Toch is er in veel gevallen wel 
wat te doen aan dit graphics-leed. De 
oplossing ligt in het handig gebruik 
maken van voor en achtergrondkleu- 
ren. In illustratie 1 is het probleem uit 
de vorige alinea uitgewerkt. De truc is 
nou, dat in de hokjes e9,e10,f9 en fl 0 
de achtergrondkleur niet zoals altijd 
lichtgrijs is, maar blauw. De voor- 
grondkleur is groen, en als U het uit¬ 
probeert, dan zult U zien dat het resul¬ 
taat inderdaad is, zoals oorspronkelijk 
bedoeld was: een blauwe en een 
groene driehoek. 

Gekunsteld 

Natuurlijk zijn op deze wijze niet alle 
kleur-problemen op te lossen. Maar 


met een beetje ploeteren en veel 
schuiven (zodat de 8 bij 8 hokjes die 
de kleur bepalen net goed uitkomen) 
zijn uiteindelijk heel aardige (welis¬ 
waar gekunstelde) resultaten te beha¬ 
len. Overigens, in de Show op de Pu¬ 
blic Domain Disk (lees de GEOS 
INFO rubriek), staan een aantal aardi¬ 
ge voorbeelden met deze techniek. 

Listing 

Dan is het nu tijd enige tekst en uitleg 
te geven bij het geLISTe programma. 
Deze listing is een Geopaint Catcher. 
Met dit programma kunnen allerlei 
plaatjes uit bijv. spelletjes naar Geo¬ 
paint gehaald worden. Het werkt als 
volgt: Het programma gaat ervan uit 
dat de plaatjes al (ergens) in het ge¬ 
heugen staan. Wat Ü moet doen is 
dus, dat U eerst het spelletje laadt en 
runt, en dan op de Resetknop drukt. 
Daarna moet dan de Geopaint-Catc¬ 
her ingeladen worden. 


Het programma zelf geeft vrij veel 
tekst en uitleg tijdens de werking, en 
zal dan ook niet zo veel moeilijkheden 
opleveren. Omdat dit zo is, heeft de 
listing een aardige omvang en dit is 
dan ook de reden dat hij aanvankelijk 
(Cl nr 3 1988) niet geplaatst is. Vol¬ 
gende keer gaat de machinetaalcur- 
sus verder en het toverwoord in de 
volgende afleveringen is ‘printers’. Al¬ 
les over printers in GEOS: hoe ze aan 
te sturen vanuit een eigen GEOS Ap¬ 
plicatie, het schrijven van een eigen 
printerdriver, het oplossen van de be¬ 
langrijkste printerproblemen etc etc. 
Aangezien bijna alle GEOS-proble- 
men printerproblemen zijn, beveel ik 
U van harte aan de volgende afleve¬ 
ringen van de machinetaalcursus te 
volgen. 

Peter Boncz 
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GeoPaint Catcher 


1000 rem 
1010 rem 
1020 rem 
1030 rem 
1040 rem 


************************ 

* screen capture * 

* * 

* voor geopaint 

* * 


1050 rem * een programma * 

1060 rem* van: * 

1070 rem* peter boncz * 

-j QQQ |*0m ************************** 

1090 rem 
1100 rem 

1110 dim nn(17): dim ns(17) 

1120 poke53280,12:poke53281,0:poke646,7 
1130 print" 

HOMEGHT-GREENx 

DOWN Screencatcher voor Geopaint" 

1140 prinf'xDOWN Geef eerste het te saven HIRES 
scherm aan." 

1150 fora=1 to72:readb:poke49151 +a,b:next 
1160 rem 
1170 rem 
1180 rem 


1190 print"WHITE" 

1200 prinf'Er zijn 8 geheugenblokken (0-7) Hiervan kunt 
U kiezen 2-5 en 7" 

1210 fora=1024to1536:poke16384+a,32:next 
1220 rem 
1230 rem 
1240 rem 

1250 print"xSPACEHet bijbehorende adres is:xSPACE- 
het getal * 16384" 

1260 prinf'Eerst ziet U het schem in de multicolormode, 
dan in de hoogste resolutie" 

1270 fora=1536to2024:poke16384+a,32:next 
1280 rem 
1290 rem 
1300 rem 

1310 inpuf’Het schermnummer";b:ifb int(b) or b7 or b or 
b=6 then1310 

1320 print b:print"druk op een toets": 

poke198,0:wait198,1 :poke53265,187 

1330 poke53270,216:poke53272,31 :poke 

56576,2:poke255,b*32:sys49152 

1340 fora=0to2000:next:poke53270,200: 

fora=0to2000:next 

1350 poke53265,155:poke56576,3:poke53272 

,23:poke53270,200:poke255,b*32:sys49152 

1360 rem 

1370 rem 

1380 rem 

1390 a$="":input"HOMExDOWNDeze (j/n)";a$:ifa$="n" 
then1310 

1400dimt(15):dims(15):dima(254): dimb(254):dimc(163): 
poke255,b*32:sys49152 

1410 prinfGHT-GREENHet door U gekozen scherm 
wordt nu op GEOS manier op disk gezet." 

1420 prinfHet Geopaint scherm is ingedeeld in" 

1430 prinf'stroken van 2 regels. Een scherm heeft 25 re¬ 
gels." 

1440 rem 
1450 rem 
1460 rem 

1470 inpuf’hoeveel stroken (1-13)";r 


1480 inpufnaam file";n$ 

1490 g=24576 

1500 open15,8,15:open5,8,5,"#" 

1510 rem 
1520 rem 

1530 rem opzetten variabelen 
1540 rem 
1550 rem 

1560 print#15,"b-r:"5;0;18;0 
1570 print#15,"b-p:"5;171; 

1580 fora=0to18:readb:print#5,chr$(b);: next 
1590 print#15,"u2:"5;0;18;0 
1600 print#15,"b-p:"5;0; 

1610 print#5,chr$(0);chr$(255); 

1620 fora=0to253:print#5,chr$(0);:next 
1630 print#15,"u2:"5;0;18;18 
1640 forx=1 to4: readb :reada :a(a)=b: nextx 
1650 forx=1 tol 1 :readb:reada:b(a)=b:nextx 
1660 forx=1 tol4:readb:reada:c(a)=b:nextx 
1670 close 5,8,5 
1680 foraa=0tor 

1690 open5,8,5,"geograph"+str$(aa)+",s,w" 

1700 rem 
1710 rem 

1720 rem opstellen deel 1 
1730 rem 
1740 rem 

1750 fora=1to63:b=peek(g+t):t=t+1 :a(a)=b :next 
1760 fora=65to127:b=peek(g+t):t=t+1: a(a)=b:next 
1770 fora=128to191 :b=peek(g+t):t=t+1: a(a)=b:next 
1780 fora=193to153:b=peek(g+t):t=t+1: a(a)=b:next 
1790 rem 
1800 rem 

1810 rem opstellen deel 2 
1820 rem 
1830 rem 

1840 fora=1to63:b=peek(g+t):t=t+1 :b(a)=b :next 
1850 fora=65to71 :b=peek(g+t):t=t+1: b(a)=b:next 
1860 fora=79to141 :b=peek(g+t):t=t+1: b(a)=b:next 
1870 fora=143to205:b=peek(g+t):t=t+1: b(a)=b:next 
1880 fora=207to253:b=peek(g+t):t=t+1: 
b(a)=b:next 
1890 rem 
1900 rem 

1910 rem opstellen deel 3 
1920 rem 
1930 rem 

1940 fora=1to63:b=peek(g+t):t=t+1 :c(a)=b :next 
1950 fora=65to127:b=peek(g+t):t=t+1: c(a)=b:next 
1960 fora=128to149:b=peek(g+t):t=t+1: c(a)=b:next 
1970 rem 
1980 rem 

1990 rem saven alles 
2000 rem 
2010 rem 

2020 fora=0to253:print#5,chr$(a(a));:next 
2030 fora=0to253:print#5,chr$(b(a));:next 
2040 fora=0to160:print#5,chr$(c(a));:next 
2050 close 5,8,5 
2060 rem 
2070 rem 

2080 rem volgende 2 regels 
2090 rem 
2100 nextaa 
2110 rem 

2120 open5,8,5,"geograph"+str$(aa)+",s,w" 
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2130 print#5,chr$(255);:close5,8,5 

2140 open5,8,5,"geograph"+str$(aa+1)+",s,w" 

2150 print#5,chr$(255);:close5,8,5 
2160 rem 
2170 rem 

2180 rem ophalen track en sector 
2190 rem 
2200 rem 

2210 open5,8,5,"#" 

2220 forx=0toaa+1 

2230 vt=18:vs=1 :t=0 

2240 print#15,"b-r:"5;0;vt;vs 

2250 dt=0:gosub2830:nt=by:gosub2830:ns=by 

2260 gosub2830:ib=by 

2270 if ibl 29 then2350 

2280 gosub2830:bt=by:gosub2830:bs=by 

2290 fora=1to16:gosub2830:ns(a)=by 

2300 ifns(a)=160then2320 

2310 nexta 

2320 n1$="":n2$="" 

2330 forb=1toa-1 :n1$=n1$=chr$(ns(b)):next 
2340 ifnl $="geograph"+str$(x)then2410 
2350 t=t+1 
2360 ift=8then2390 

2370 print#15,"b-p:"5;(t*32+2);:dt=(t‘32)+2 
2380 goto2260 

2390 if nt=Othenprint"Er is iets fout.":goto2790 
2400 dt=0:t=0:vt=nt:vs=ns:goto2240 
2410 print#15,"b-p";5;t*32+2; 

2420 print#5,chr$(0); 

2430 print#15,"u2:"5;0;vt;vs 

2440 t(x)=bt:s(x)=bs 

2450 if x=Othenxt=vt:xs=vs:xn=t 

2460 nextx 

2470 rem 

2480 rem 

2490 rem begintrack 
2500 rem 
2510 rem 

2520 print#15,"b-p:"5;0; 

2530 print#5,chr$(0);chr$(255); 

2540 fora=0tor:print#5,chr$(t(a));chr$(s(a));:next 
2550 fora=1to44-r:print#5,chr$(0);chr$(255));:next 
2560 fora=1to82:print#5,chr$(0);chr$(0);:next 
2570 print#15,u2:5;0;t(aa);s(aa) 

2580 rem 
2590 rem 

2600 rem directory 
2610 rem 
2620 rem 

2630 print#15,"b-r:"5;0;xt;xs 
2640 print#15,"b-p:"5;(xn*32+2); 

2650 print#5,chr$( 131) ;chr$(t(aa)) ;chr$(s(aa)) ;n$; 

2660 iflen(n$)=16then2680 

2670 fora=1to16-len(n$):print#5,chr$(160);:next 

2680 print#5,chr$(t(aa+1 j);chr$(s(aa+1)); 

2690 fora=0to6:readb:print#5,chr$(b);:next :print#5,chr$ 
(1+3(r+1));chr$(0); 

2700 print#15,"u2:"5;0;xt;xs 

2710 rem 

2720 rem 

2730 rem header 

2740 rem 

2750 rem 

2760 print#15,"b-p:"5;0; 

2770 fora=0to135:readb:print#5,chr$(b);:next 


2780 print#15,"u2:"5;0;t(aa+1 );s(aa+1) 

2790 close5:close15:end 
2800 rem 
2810 rem 

2820 rem readchar 

2830 rem (voor aftandse drives) 

2840 rem 
2850 rem 

2860 print#15,"b-p:"5;dt;:get#5,by$:by$=by$+ 

chr$(0):dt=dt+1 

2870 ifby$=chr$(0)thenby=0:goto2890 
2880 by=asc(by$) 

2890 return 
2900 rem 

2910 rem data (variabelen, directory 
2920 rem en header) 

2930 rem 

2940 data 120,169,000,141,014,220,169,053 
2950 data 133,001,169,000,133,252,133,254 
2960 data 133,251,133,250,169,096,133,253 
2970 data 160,000,177,254,133,251,177,252 
2980 data 145,254,165,251,145,252,200,192 
2990 data 000,208,239,166,253,232,134,253 
3000 data 166,255,232,134,255,166,250,232 
3010 data 134,250,224,032,208,218,169,055 
3020 data 133,001,169,001,141,014,220,096 
3030 rem 
3040 rem 

3050 data 018,018,071,069,079,083,032,102 
3060 data 111,114,109,097,116,032,086,049 
3070 data 046,048,000,063,000,063,064,063 
3080 data 128,061,192 
3090 rem 

3100 data 063,000,007,064,255,072,000,073 
3110 data 255,074,000,075,194,076,000,077 
3120 data 063,078,063,142,047,206 
3130 rem 

3140 data 063,000,063,064,021,128,255,150 
3150 data 000,151,255,152,000,153,194,154 
3160 rem 

3170 data 000,155,255,156,191,157,161,158 
3180 data 191,159,000,160 
3190 rem 

3200 data 001,007,088,004,007,015,005 
3210 rem 

3220 data 000,255,003,021,191,255,255,255 
3230 data 192,000,003,160,000,005,159,255 
3240 data 249,149,085,089,154,170,169,149 
3250 data 085,089,154,170,169,149,085,089 
3260 data 154,170,169,149,085,089,154,170 
3270 data 169,159,255,249,160,000,005,192 
3280 data 000,003,255,255,255,000,000,000 
3290 data 000,000,003,127,255,182,128,000 
3300 data 254,127,255,188,131,007,001,000 
3310 data 000,255,255,000,000,080,097,105 
3320 data 110,116,032,073,109,097,103,101 
3330 data 032,086,049,046,049,000,000,000 
3340 data 000,000,000,000,000,000,000,000 
3350 data 000,000,000,000,000,000,000,000 
3360 data 000,000,000,000,000,103,101,111 
3370 data 087,097,105,110,116,032,032,032 
3380 data 032,086,049,046,049,000,000,000 
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OUD VAN GOUDRIAAN 


Wizard’s Lair 

De legende van de grot gaat over lang geleden 
over donkere grotten ver geleden 
Waar een tovenaar, woont al heel lang 
toverformules uitspreekt en voorspelt een ieders ondergang 
vier stukjes van de leeuw moet je ontdekken 
alleen dan kan je vertrekken 
passer de leeuw die bewaakt de grot 
laat dit een waarschuwing zijn, pas op 


Zo luidt de opdracht bij het program¬ 
ma Wizards’s Lair. Ergens diep in het 
midden der aarde huist een tover¬ 
heks. Door de jaren heen heeft ze een 
geweldig stelsel van grotten en gan¬ 
gen opgezet. Hierin zijn verborgen de 
vier stukjes van de leeuw. Diegene die 
zich hierin waagt moet niet alleen 
deze stukjes vinden maar ook allerlei 
hindernissen moeten worden geno¬ 
men. Hierbij wordt je flink tegen ge¬ 
werkt door allerlei gespuis, slangen en 
ander ongedierte proberen je te ver¬ 
hinderen je opdracht te voltooien. 
Maar ook watervallen, rivieren en ge¬ 
heime doorgangen proberen dit te 
verhinderen. Voor de deuren die ge¬ 
sloten zijn moeten er sleutels worden 
gezocht, dat deze goed beschermd 
zijn behoeven we je natuurlijk niet te 
vertellen. Vergeet bij al deze ontberin¬ 
gen niet te eten, dit is noodzakelijk om 
de energievoorraad op pijl te houden. 
Goudstaven moeten er verzameld 
worden, samen met een toverformule 
kunnen ze letterlijk goud waard zijn. 
Je kan dan kiezen wat er voor dit goud 
moet worden gekocht, neem alleen 
datgene wat je het hardst nodig hebt, 
sleutels, energie of diamanten. Ook 
zijn er onderweg bonuslevens te ver¬ 
dienen. Kijk hierbij steeds goed uit, 
want zoals het een "goede" toverheks 
betaamt is hier niet altijd voordeel uit 
te halen. Er zitten ook valse tussen, en 
in plaats van een leven erbij kost dit 
juist een leven. Geheime putten zijn 
net valkuilen, met als verschil dat je 
hier weer uit komt, alleen op een an¬ 
dere plaats, dit kan zowel in je voor¬ 
deel als in je nadeel werken. De open 
haarden die je tegen komt zijn een 
soort (moeilijke) doorgangen. De liften 
kunnen je een verdieping hoger of la¬ 
ger brengen. Een snellere manier van 
verplaatsen zijn de transportkamer- 
tjes. Helaas moet U hiervoor wel de 
codewoorden weten. Eén van deze 
woorden wil ik wel verraden: typt U nu 
maar eens in CRYPT, U wordt nu van¬ 


zelf verplaatst naat dit level. Er zijn ze¬ 
ven levels dus er zal nog heel wat 
moeten worden gedoold en rondge¬ 
zworven om dit alles tot een goed ein¬ 
de te brengen. Natuurlijk is er nog erg 
veel te ontdekken, en bent U een lief¬ 
hebber van dit soort spelen dan zult U 
snel verslaafd worden aan dit spel. Of 
misschien was u dat al lang. 

Shanghai 

Het spel heeft zijn oorsprong in het 
verre oosten. In China werd het al 
eeuwen geleden gespeeld. De com¬ 
puter versies bestaan pas enige jaren. 
De professionele spelers blijken (bij¬ 
na) altijd sterker te zijn dan de compu¬ 
ter. Al zult U het meestal niet van uw 
computer kunnen winnen. Het spel 
wordt gespeeld met stenen van het 
Mah-Jong spel. Er zijn verschillende 
groepen, als eerste groep zijn er zo¬ 
genaamde DOTS. Dit zijn negen ste¬ 
nen met een waarde oplopend van 



één tot negen. Deze zijn gemakkelijk 
te herkennen aan het aantal dots dat 
er op de stenen is afgebeeld. Van elke 
dot zijn er vier stenen. De tweede ca¬ 
tegorie zijn de BAMS, op deze stenen 
zijn een soort bamboe stokjes afge¬ 
beeld. Ook hier zijn negen stenen met 
een waarde die oploopt tot negen. 
Een volgende groep zijn de Cracks of 
char, deze bestaan uit Chinese te¬ 
kens. Deze groepen hebben elk ne¬ 
gen stenen en elke groep bestaat uit 
vier stuks. Dan hebben we nog de ste¬ 
nen van de windrichtingen. Noord, 
Oost, Zuid en West. Van elke wind¬ 
richting zijn er ook vier. De Dragon se¬ 
rie bestaat uit een aantal kleuren, 
rood, wit en groen. Ook van deze dra¬ 
gons zijn er vier. De volgende serie 
zijn de vier seizoenen, zomer, winter, 
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lente en herfst. Van elk van deze ste¬ 
nen is er maar één. Ook van de vol¬ 
gende groep is er maar één en dat zijn 
de bloemen. Al met al is het een ver¬ 
zameling van 144 verschillende ste¬ 
nen. Natuurlijk zijn er voor deze com¬ 
puterversie wat aanpassingen nood¬ 
zakelijk geweest. Zo staan er op de 
meeste stenen cijfers. Zodra het spel 
wordt opgestart zie je een piramide 
vormige stapel stenen. Aan de randen 
ligt een enkele rij stenen en naar het 
midden toe worden er stenen op ge¬ 
legd. Op het hoogste punt liggen dan 
vier rijen stenen. Nu is de bedoeling 
dat we stenen paarsgewijze gaan ver¬ 
wijderen. Steeds moeten twee stenen 
van dezelfde groep en met de zelfde 
waarde, mits ze vrij liggen, wegge¬ 
haald worden. Het spel is zowel alleen 
als met meerdere spelers te spelen. 
Als U het wilt gaan spelen neem er 
dan de tijd voor, het is zeker niet zo dat 
een spel in een verloren kwartiertje 
kan worden uitgespeeld. 

Vera Cruz 

Dit spel heeft zijn oorsprong in een 
land waar niet zo veel software van¬ 
daan komt: Frankrijk. Het is een spel 
van Infogrames, in Nederland: Tatou 
Software. 

Je bent zojuist benoemd tot wacht¬ 
meester bij de recherche van Saint- 
Etienne. Als onderofficier van de op¬ 
sporingsdienst heb je tot taak de mis¬ 
daad te onderzoeken en op te lossen. 
Vlak na je indiensttreding krijg je de 
zaak Vera Cruz voorgeschoteld. Dit is 
het begin van alle ellende. Het begint 
allemaal met een telefoontje van de 
conciërge van het gebouw waar Vera 
Cruz woont. Er is een melding van 
zelfmoord met een vuurwapen. Na 
een uitvoerige inspectie rijst de vraag, 
is hier werkelijk sprake van zelfmoord 
of zou het toch moord zijn? Een nauw¬ 
keurig onderzoek is een vereiste, ge¬ 
lukkig staan er verschillende mogelijk¬ 
heden tot je beschikking. Met het foto¬ 
toestel kan alles wat er verdacht uit¬ 
ziet op de gevoelige plaat worden 
vastgelegd. Er blijken verschillende 
voorwerpen in de kamer rond te slin¬ 
geren: een pistool, een patroonhuls, 
een tasje met inhoud en een asbak 
met twee peuken. Al deze voorwerpen 
kunnen leiden tot de ontknoping van 
dit raadsel. Belangrijk zullen de getui¬ 
gen blijken te zijn. Dat de Franse gen¬ 
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Vera Gruz 



darmerie tot de modernste horen blijkt 
niet alleen uit de grote ervaring maar 
ook uit de mogelijkheid gebruik te ma¬ 
ken van DIAMANT NETWERK. Dit 
netwerk maakt het mogelijk contact op 
te nemen met alle afdelingen van het 
politie apparaat, de perfectorale admi¬ 
nistratie en de strafgevangenis. Hier¬ 
voor zijn verschillende procedures 
ontwikkeld. Code B staat voor bood¬ 
schap, code P voor Printer. Zo zijn er 
nog een groot aantal codes, de (pri¬ 
ma) handleiding is hierbij zeker nood¬ 
zakelijk. 

We gaan nog even terug naar het mo¬ 
ment dat U de kamer heeft verlaten 
om de diverse getuigen te verhoren. 
Eén van de eerste is natuurlijk de con- 
giërge die heeft gebeld, de buren heb¬ 
ben misschien ook nog wel wat ge¬ 
hoord. Vergeet vooral ook niet in de 
agenda van Vera te kijken, waar¬ 
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schijnlijk staan er nog wel wat namen 
in die het één en ander verduidelij¬ 
ken. Kortom, genoeg werk aan de 
winkel. Blijkt dat al deze informatie 
nog niet voldoende is om het mysterie 
op te lossen dan gaan we neuzen in 
de computer van de Franse politie. 
Wat U zeker niet mag vergeten is de 
afscheidsbrief te laten onderzoeken. 
Heeft ze hem echt wel zelf geschre¬ 
ven? Staat de moord misschien wel in 
verband met de eerder gepleegde 
overval op een juwelier? Na goed on¬ 
derzoeken, vergelijken, vragen kunt U 
een dader aanwijzen, maar of er dan 
nog wel voldoende tijd is om de dader 
te arresteren? 

U begrijpt dus dat er erg veel werk ver¬ 
zet moet worden om de juiste persoon 
in de kraag te vatten. 
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C-64 Software nieuws 


Gold - Silver - Bronze 

Onder deze naam heeft de firma 
EPYX drie eerder uitgebrachte spel¬ 
len in een verzameldoos uitgebracht. 
Summergames I en II en de «/interga¬ 
mes. Zoals we van Epyx gewend zijn 
staat de firma garant voor kwaliteit en 
spelplezier. 

Dit soort spelen begint het spel altijd 
met het ontsteken van het vuur. Hier¬ 
na komt men voor de keuze te staan 
of we zullen gaan oefenen of gelijk 
maar in het diepe duiken met het spe¬ 
len van één of meerdere sporten. We 
bekijken ze allemaal even kort. Als 
eerste gaan we polstokhoogspringen. 
Je moet minstens 4 meter hoog kun¬ 
nen springen wil je een beetje mee 
kunnen komen. De echte toppers 
springen (makkelijk) 6.20 meter. Door 
de keuze hoe je de stok vastpakt 
wordt de uiteindelijke hoogte bepaald. 
Hierbij is ook de snelheid erg belang¬ 
rijk. Als volgende zomerse sport is het 


platform duiken aan de beurt. Hier heb 
je de keuze uit 4 verschillende spor¬ 
ten, en al lijkt het niet zo moeilijk, je zal 
zien dat het tegen valt om de punten 
binnen te halen. De bedoeling is om 
mooie figuren te maken en om toch 
nog zonder spatten in het water te glij¬ 
den. Nu is de 4 x 100 meter hardlopen 
aan de beurt. De kunst is naast het in 
het juiste ritme heen en weer halen 
van de joystick, het stokje op tijd door 
te geven aan je medelopers. Dit ge¬ 
beurt door een druk op de vuurknop. 
Bij het volgende onderdeel sta je er al¬ 
leen voor, de 100 meter sprint. Rustig 
met de joystick beginnen en langzaam 
het tempo opvoeren, dat is hier de be¬ 
ste remedie. Een nog moeilijker on¬ 
derdeel is de paardoefening in de 
gymnastiekhal. De meeste punten zijn 
hier te verkrijgen door met een soepe¬ 
le salto over het paard te springen. 
Gebruik hiervoor zeker de trampoline, 
de salto zal nog wel lukken, maar de 
landing... Na al deze inspanning is 


een heerlijke duik in het water een 
welkome afwisseling. De opdracht 
hier is het zwemmen van een estafet¬ 
te. Let hierbij vooral om de wissels, 
niet te vroeg en niet te laat. De laatste 
wedstrijd op deze schijf is het kleidui¬ 
ven schieten, een erg leuk onderdeel. 
De ene maal komen ze van links, dan 
weer van rechts. Je hebt 25 schoten 
en het is de bedoeling zo veel moge¬ 
lijk kleiduiven te raken. 

Op de tweede diskette staan weder¬ 
om acht zomerse sporten. De eerste 
hierbij is de hink-stap-sprong. Na re¬ 
gelmatig in het zand gebeten te heb¬ 
ben zal het wel lukken om voorzichtig 
de eerste sprongen te maken. Maar 
om een beetje afstand te halen mag 
de oefening zeker niet ontbreken. Nu 
zijn de roeiers aan de beurt, ook hier 
geldt weer een regelmatige bediening 
van de joystick als de remedie om dit 
onderdeel winnend af te leggen. Het 
volgende onderdeel is het speerwer¬ 
pen. Hier is naast de snelheid ook van 


The great Giana Sisters 


The brothers are history, zie hier het grootste platformspel 
aller tijden. Zo wordt het nieuwste platformspel aange¬ 
prijsd. Wat gebeurde er: op een nacht droomde één van 
de zusters, Giana, diep in haar slaap had ze een vreem¬ 
de droom. Nu droomt iedereen wel eens ’s nachts, maar 
deze droom was zo echt! Giana zag zichzelf in een vreem¬ 
de, angstaanjagende, mysterieuze situatie. Alles was 
daar anders, vreemde gebouwen, rare wezens, levens¬ 
grote paddestoelen en allerlei andere obstakels. 

Zie hier, een prima gegeven voor een computerspel. Jij 
bent de hoofdpersoon en moet je maar proberen te red¬ 
den in deze uitzichtloze situatie. Gelukkig kan Giana héél 
hoog springen en de vreemde wezens, ze zijn niet nader 
te omschrijven, zijn te verpletteren door boven op ze te 
springen. Let erop dat er sommige stukken vloer zijn die 
niet zijn wat ze lijken, ze verdwijnen plotseling. De volgen¬ 
de nacht wordt het geheel zo mogelijk nog erger. Hier 
doen krabben alle mogelijke moeite om je te overmeeste¬ 
ren, sloten worden ravijnen. Er zal steeds verder en hoger 
moeten worden gesprongen om de nacht te overleven. 
Hoeveel van deze nachten staan er Giana nog te wach¬ 
ten? Dromen gaan over in nachtmerries. Maar er is één 
ding dat de betovering kan doorbreken: onderweg liggen 
er op verschillende plaatsen diamanten, deze moeten 
worden verzameld. Er is echter één heel bijzondere, zeld¬ 
zame diamant bij, en juist deze is zo belangrijk. 

Gelukkig is Giana niet helemaal alleen, haar zuster Maria 
probeert haar op alle mogelijke manieren te helpen. Naast 
de hulp van Maria kan je onderweg ook nog onverwacht 
hulp krijgen. Er blijken een aantal knipperende blokjes te 
zijn waar zich wat hulp achter verschuilt. Hierdoor kan je 
wat extra kracht krijgen. Deze is soms nodig om geen her¬ 
senschudding te krijgen bij het doorstoten, met je hoofd, 


van een muur. Met de bliksemschichten kan je schieten. 
Heel erg moeilijk is op level 3 de bal, voordat je het juiste 
moment om er onderdoor te gaan hebt bepaaald zullen de 
nodige levens verloren zijn gegaan. Verder zijn er natuur¬ 
lijk de traditionele hindernissen, in de vorm van spinnen 
en ander ongedierte. Zeker is het dat er veel moet worden 
gesprongen en geklommen voor dat je het spel tot een 
goed einde kan brengen. 
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belang op welk moment je de speer 
loslaat. Na wat oefening is het hier ze¬ 
ker mogelijk een behoorlijke afstand 
te werpen. Degene onder ons die nog 
nooit op een paard hebben gereden, 
hier is je kans. Er staan je op dit par¬ 
cours wel verschillende hindernissen 
te wachten. Het zal dus niet eenvou¬ 
dig zijn op het paard te blijven zitten, 
iaat staan ook het parcours in een re¬ 
delijke tijd af te leggen. Val je er toch 
af, gewoon opstaan en verder gaan. 
Dan hebben we nog het hoogspringen 
en fietsen, all twee redelijk eenvoudi¬ 
ge opdrachten, die je als gevorderd 
speler niet in de problemen zal bren¬ 
gen. Ons volgend onderdeel is een 
niet alledaagse sport, het schermen. 
Goed bewegen en letten op je tegen¬ 


stander, dat is ons advies. Het laatste 
onderdeel is het roeien. Opletten en 
goed de joystick bewegen en de fi¬ 
nishlijn is sneller bereikt dan je denkt. 
De derde diskette brengt ons naar een 
winters landschap. Hier starten we 
met het bobsleeën. De kunst hierbij is 
om de juiste plaats in de baan op te 
zoeken. Ga je hier maar even naast 
dan wordt je onmiddellijk gestraft met 
het uit de baan vliegen. Extra moeilijk 
is het omdat je naar twee onderdelen 
van je beeldscherm moet letten. Fi- 
guurschaatsen is het volgende onder¬ 
deel. Nu blijkt het niet moeilijk te zijn 
om te schaatsen, maar de bijbehoren¬ 
de figuren blijken ongelofelijk moeilijk 
te zijn. Schansspringen is weer zo’n 
onderdeel waarbij het niet alleen op 


snelheid aankomt, opletten en goed 
reageren is hierbij wel een vereiste. 
Natuurlijk ontbreken op deze diskette 
ook de slalom en de afdaling niet, dit 
zijn niet de moeilijkste onderdelen en 
na wat oefening zullen deze geen pro¬ 
blemen meer opleveren. 

Epyx heeft door het uitbrengen van 
deze verzamelde werken, weer een 
goede gooi gedaan. Heel veel men¬ 
sen hebben een illegale kopie van 
deze programma’s al in huis. Nu is dit 
een goede gelegenheid om aan een 
legale versie te komen. Het tweede 
grote voordeel hierbij is dat de mees¬ 
te spelen niet goed zijn uit te voeren 
zonder de handleiding. Na het lezen 
ervan zullen sommige spelen ineens 
veel makkelijker te spelen zijn. 


Cluebooks 

Voor een aantal spellen van Electronic Arts zijn zoge¬ 
naamde ‘cluebooks’uitgebracht, waarin tips zijn opgeno¬ 
men voor het spelen van deze rol-spellen. Het gaat om de 
spellen Bards Tale I, II en III, Deathlord, Wasteland en The 
Mars Saga. De boeken bevatten tips en trucs, doolhoven 
en kaarten om de verslaafde speler levend door het spel 
heen te loodsen. 

Formula One 

Het op de Amiga al heel populaire racespel wordt in april 
ook voor de Commodore 64 uitgebracht. Ferrari Formula 
One is een simulatiespel dat jet rijden van een Ferrari 
F1/86 combineert met het managen van een race-team. 
De races worden verreden op alle 16 circuits die in 1986 
in het raceschema waren opgenomën, waaronder Mona¬ 
co, Detroit, Monza en Brands Hatch. 

Chaos bij speurtocht naar mister Eyestrain 

Er lijken de laatste tijd alleen maar leuke of redelijk goeie 
tot prima spellen te worden uitgegeven. Zouden de ont¬ 
werpers het eindelijk leren? Waar we bijvoorbeeld veel 
plezier mee hebben gehad is het computerspel TERRA- 
MEX’ van Grand Slam Entertainments. Het bijna altijd 
aanwezige verhaal bij zo’n spel gaat in dit geval over de 
heer Eyestrain die een vervelende voorspelling doet. Dë 
aarde zal over enige tijd worden getroffen door een enor¬ 
me asteroïde. Hoongelach is zijn deel en de man vertrekt 
teneergeslagen uit de bewoonde wereld. Niet lang daarna 
wordt het de andere geleerden duidelijk dat de verguisde 
Eyestrain (typische naam eigenlijk!) toch gelijk had met 
zijn voorspelling. Het is nu zaak om de beste man zo snel 
mogelijk terug te vinden om zijn manier te vernemen waar¬ 
op de aanstaande ramp eventueel kan worden voorko¬ 
men. De speler van dit computerspel gaat op weg om 
Eyestrain te zoeken. Vanzelfsprekend gaat de speurtocht 
niet van een leien dakje. Irritante tegenstanders in over¬ 
vloed en een macht aan hulpmiddelen die het zoeken 
moet vergemakkelijken. De hulpmiddelen moeten steeds 
ter hand genomen en gewisseld worden om bepaalde hin¬ 
dernissen te nemen. Een tamelijk ingewikkeld maar leuk 
spel! Commodore-cassette ƒ40,-, en disk ƒ50,-.R.Timmer 


MPS 1230 

Deze nieuwe dot-matrix printer met 9-naalds kop van 
Commodore is de vervanger van het model MPS 1250. 
De 1230 is gebouwd door Olivetti en heeft een eigen 
Commodore kast. Er zijn twee interfaces ingebouwd, zo¬ 
wel het C-64 interface als een parallelle aansluiting. Het 
apparaat valt op door zijn compacte en lichte bouw. 


Missers 

Een misser op een misser. In het laatste nummer van vo¬ 
rig jaar hebben we een misser geplaatst. Helaas is de zet- 
duivel ons ook de tweede keer de baas geweest en zijn 
dezelfde tekens weer weggevallen. Hierbij proberen we 
het dus maar weer opnieuw. In het Programma ZON EN 
MAAN zijn een aantal essentiële tekens weg gevallen. 
310 def fnr(y)=(re/180)*(y-(360*int(y/3 
60))):rem graden worden radialen m 
od 2tc 

320 def fns(y)=atn(y/sqr(-y*y+1)):def 
fnc(y)=n/2-fns(y):rem arcsin en ar 
ccos 

720 r=r+(-9.138e-5+4.6e-7*t)*cos(2*g)+ 

(-1,45e-6)*cos(3*g) :rz=1 0[kwadraat 
pijl]r 

830 kl={cos(b)*sin(l)*cos(e)-sin(b)*si 
n(e))/cos(de):kl=fns(kl):z(1)=kl:z 
(2)=7t-kl 

900 kl=atn(h1/h2):ifh2<0thenkl=kl+7i 
970 a=-(cos(de)*sin(tk))/cos(h):a=fns( 
a):z(3)=a:z(4)=ji-a:gosub1070:a=zq 
980 h=h*180/7t:a=a*180/7i:pudef"[SPACE]" 

1070 forq=1to4:z(q)=z(q)-(2*jt*int(z(q)/( 

2*7i))) :z(q+4)=int(1 00*z(q)):next 
1140 ifuh>7t thenuh=uh-(2*rt):goto1140:elsei 
fuh<-7i thenuh=uh+2*jt:goto1140 
1160 ta=s*abs(fnc(va)):tb=ut*ji/12+ta-uh 
1170 tb=12*(tb/7i)+.00833 
1370 l=lk*180/ïï+(co/3600):l=fnr(l) 

1420 ss=.272493*sin(pi):ss=ss*180/rc 
1550 ifuh>jrthenuh=uh-(2*7r):goto1550:elsei 
fuh<ji-thenuh=uh+2*7t:goto1550 
1590 ifit=1thendd=.9661:elsedd=1.0027-( 
kl-dk)*(12/n)/(ut-du) 

1600 tb=ut+(ta-uh)*12/(dd*7t) 
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Daar komt de software 


By Dynamix 

Bij dit spel moeten we ons een flink 
eind in de tijd terug plaatsen, we leven 
weer in het stenen tijdperk. Zelfs (of 
met name) toen was er een behoefte 
om de krachten onderling te meten. 

Het spel begint met een atleet die aan 
komt rennen, net als bij de moderne 
spelen, met een fakkel in zijn hand. 

Hiermee wordt de vlam ontstoken die 
tijdens de spelen blijft branden. De 
kleding die wordt gedragen roept al de 
nodige vraagtekens op, maar even la¬ 
ter gaan de wenkbrauwen fors om¬ 
hoog wanneer de titel van het spel 
naar beneden komt vallen. En met 
vallen bedoelen we dan ook letterlijk 
vallen, boven op onze arme atleet met 
zijn vlam. Na het opstarten van het 
programma moet er een keuze wor¬ 
den gemaakt uit zes verschillende 
personages, een ieder met zijn eigen 
specialiteit. 

Vincent blijkt geen enkele ervaring op 
het gebied van de sport te hebben, 
maar dit behoeft juist geen nadeel te 
zijn. Net zo min als het een voordeel 
is als alle onderdelen beheerst wor¬ 
den, we bedoelen hiermee Gronk. Of 
we nu nemen Grunla, Glunk, Thag of 
Ugha een ieder heeft zijn voor en na¬ 
delen. Een verstandig besluit is alleen 


te nemen na het grondig bestuderen 
van de handleiding, en veel proberen. 
Hierna kan men over gaan naar het 
spelen van het spel, maar voor een 
beginner is het veel verstandiger om 
eerst van de oefen mogelijkheid ge¬ 
bruik te maken. Als eerste nemen we 
de Saberrace, vrij vertaald is dit de tij- 
gerrace. Dit onderdeel blijkt vrij ge¬ 
vaarlijk te zijn, je heb niet alleen te ma¬ 
ken met je tegenstander maar ook de 
tijger blijkt niet geheel ongevaarlijk te 
zijn. De beste remedie is dan ook har¬ 
der lopen dan je tegenstander, hij 
wordt dan het eerst opgegeten, de tij¬ 
ger wordt dan even opgehouden, snel 
over de hindernissen, zodat hij jou ook 
niet te pakken krijgt. Het volgende on¬ 
derdeel blijkt FireMaking te zijn, vuur¬ 
tje stoken dus. Jammer genoeg waren 
lucifers of aanstekers nog niet uitge¬ 
vonden, dus moest daar wat anders 
op worden gevonden. Hierbij komen 
de twee stokjes te pas, zorg ervoor dat 
ze in het paarse gedeelte snel worden 
bewogen. Na enige moeizame pogin¬ 
gen blijkt er een smeulend vuurtje te 
ontstaan. Dit blijkt slechts het begin, 
vor een goed vuur moet er nog flink 
worden doorgewerkt. Om dit onder- 


I Snh-I vmnir 
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deel van je tegenstander te kunnen 
winnen, moetje niet alleen snel draai¬ 
en, maar kun je hem ook snel even 
een mep verkopen, zodat hij even af¬ 
geleid wordt. Maar denk erom, wie 

een kuil graaft voor een ander. 

Het volgende onderdeel Clubbing 
blijkt ook al zo een agressief onder¬ 
deel te zijn. Je staat samen met je te¬ 
genstander op een plateau, allebei 
met een knots in je hand, en de op¬ 
dracht is: sla je tegenstander knock- 
out of werk hem van de rots af. Je zal 
wel merken dat het hierbij niet zacht¬ 
zinnig toe gaat. Je tegenstander is 
goed te misleiden door even omhoog 
te wijzen, zodat je wat meer tijd hebt 
om hem te raken, maar let op ook hij 
bedient zich van deze truuks. Dino 
Vault is een vorm van polstok hoog¬ 
springen. Dat het met de huidige vorm 
van het hoogspringen niet zo veel te 
maken heeft wordt U al snel duidelijk. 
Het niet ver, of niet hoog genoeg 
springen heeft fatale gevolgen, niet al¬ 
leen moet je over de dinosaurus heen 
springen ook de ravijn is breder dan hij 
lijkt. De race met de dino’s is waar¬ 
schijnlijk wel het meest moeilijke on¬ 
derdeel van deze spelen, wil je je 
naam vermeld zien bij de medaille 
winnaars dan zal hier zeer zeker goed 
op moeten worden geoefend. Voor het 
laatst hebben we het onderdeel Mate- 
toss bewaard. Vrij vertaald wordt hier¬ 
mee bedoeld: maatje gooien. Je aller¬ 
beste vriend moetje hiervoor niet kie¬ 
zen. Naar verluidt was dit vroeger het 
meest spectaculaire onderdeel, ook 
nu met dit spel zal het het meeste op¬ 
zien baren. De juiste manier is de ha¬ 
ren van de tegenstander te pakken, 
flink te draaien en dan los te laten. 
Een tip van Blorg is: begin langzaam 
te draaien verhoog je snelheid, maar 
laat op tijd los, hiermee voorkom je dat 
je duizelig wordt. Bent U nieuwsgierig 
geworden dan zit er niets anders op 
dan snel naar een goede software le¬ 
verancier te gaan en dit spel aan te 
schaffen. 

Scumball 

Raadsels, raadsels en nog eens raad¬ 
sels, dit is waar je voor komt te staan 
in dit spel. Met een val beland je op 
een platform, gelijktijdig gebeuren er 
vreemde dingen. Druppels vallen ge¬ 
staag naar beneden, zeepbellen 
zwermen omhoog, vuren laaien op. 
Allerlei vreemde voorwerpen zwer¬ 
men om je hoofd. Waar zou je nu weer 
zijn beland. Bij een nadere inspectie 
blijk je in een uitgebreid grottenstelsel 
terecht gekomen te zijn. De omvang 
hiervan valt niet te raden. Begin nu 
niet te wanhopen want je bent hier niet 



alleen, je heb altijd nog LINDA. Denk 
hierbij niet direkt aan een schone jon¬ 
ge dame want LINDA is de afkorting 
van Laser Incorporated Nasties Dis¬ 
posal Android. Om dit spel tot een 
goed einde te brengen moet je de in¬ 
telligentie hebben van een wijsgeer, 
de snelheid van het licht, zo slim zijn 
als een vos en wie weet wat voor ta¬ 
lenten er nog meer nodig zijn. Aller¬ 
eerst moeten er acht granaten worden 
gevonden, zoals U al begrepen heeft 
valt dit niet mee door de veelheid aan 
gevaren waar je aan bloot gesteld 
wordt. Is er een granaat gevonden 
dan moet deze onmiddellijk naar de 
grot met het groene slijm worden ge¬ 
bracht en dan kan er pas weer naar 
een volgende worden gezocht. Op het 
moment dat alle acht de granaten zijn 
geborgen is het pas mogelijk het groe¬ 
ne slijm te vernietigen. 


Desolator 

Na het opstarten van dit programma 
moet je je verplaatsen in de huid van 
MAC. Hij is de hoofdrol speler in De¬ 
solator een re-creation van de Arcade 
hit Halls of Kairos uitgebracht door de 
firma SEGA. De opdracht is eenvou¬ 
dig: Baan je een weg naar het kasteel 
Kairos. Natuurlijk blijkt het veel moei- 
lijker dan de opdracht zou doen ver¬ 
moeden. Jij moet in de huid van MAC 
vechten om zo de weg vrij te maken. 
De grote Satan moet en de gevange¬ 
nen moeten worden bevrijd uit het 
kasteel. Om het geheel wat moeilijker 
te maken zijn er een aantal mysterieu¬ 
ze spiegels. Vernietig alles wat je op 
je weg tegenkomt, dat is de enigste 
juiste manier om deze missie tot een 
goed einde te brengen. Een aantal 
vreemde figuren proberen je van het 
succes af te houden. Allereerst heb¬ 
ben we Kairos de grote Satan. Baja is 
Kairos moeder en niet te vergeten 
Parja de "lieve" dochter. Dan hebben 
we ook nog Freman, Amor en Zozjn, 
allemaal hebben ze hun eigenaardig¬ 
heden. De namen doen al niet veel 
goeds voorspellen. Alles wat er naar 
je hoofd wordt gegooid moet je probe¬ 
ren te ontwijken, je kan er niet alleen 
hoofdpijn van krijgen maar het kost je 
zeker een leven. Door het gooien van 
de boemerang kan je de tegenstan¬ 
ders uitschakelen, maar het vereist 
wel wat oefening voor je deze tech¬ 
niek beheerst. De mijnen zijn te ont¬ 
wijken door gebruik te maken van het 
gele kruis. Door de geldkist is de sco¬ 
re hoger op te voeren. Let op je ener¬ 
gie II 

Wat kunnen we nu nog zeggen? Start 
het spel, vecht je een weg en los zo 
het spel op. 



Commodore Info 1/89 


26 







Checksum C-64 


Allereerst wil ik onze trouwe lezer het allerbeste toe¬ 
wensen voor dit nieuwe jaar. Laten we hopen dat ook 
voor onze computers het komende jaar weer een 
goed jaar wordt. Het blijkt dat ook de commodore, en 
dan zeker de cl 6, wat minder fanatiek wordt gebruikt. 
En dat is toch zeker niet de bedoeling van deze 
prachtige machines. Ook wij kunnen voor deze com¬ 
puter nog wel wat meer listings gebruiken. Wij zullen 
proberen nu de Amiga zo in opmars is de commodo¬ 
re 16 en 64 en de 128 niet te vergeten. Dat we hier¬ 
mee al een begin hebben gemaakt blijkt wel uit deze 
Print-Out (bijna) helemaal vol met redelijk kleine com¬ 
modore 64 programma’s. 


met onze listingservice telefoonlijn. (Maandag 17.00 
21.00 uur. Telefoonnummer 02155-25162.) 

1 rem ****************************** 

* * * 

2 rem basic loader "SYNTAX.CHECKSUM" 

3 rem na de commando's "run" en "new 

4 rem blijft dit programma in het ge 

5 rem heugen. laad het te testen pro 

6 rem gramma en tik daarna sys 49152 

7 rem ****************************** 


Syntax Checksum 


Het overtikken van een listing kan een heel karwei 
zijn en als u een beetje normaal mens bent dan 
maakt u daarin beslist een aantal fouten. Nu is niets 
moeilijker om de fouten uit je eigen werk te halen. Al 
geruime tijd geleden heeft Jan Bodzinga hiervoor een 
zgn. Checksum-programma geschreven. Om de vele 
nieuwe lezers van Commodore-info te helpen volgt 
hieronder nog een keer een volledige uitleg over de 
werking van dit programma, waarmee het, mogelijk is 
om de tikfouten in elke door ons geplaatste listing op 
te sporen. 

Hiervoor gaat u als volgt te werk: 

1. U tikt de listing heel zorgvuldig over en SAVEt hem 
voordat u het programma RUNt op een diskette of 
cassette. 

2. U tikt het RUN commando in. Mocht het program¬ 
ma de boodschap ’FOUT in dataregels!’ geven dan 
heeft u een fout bij het overtikken gemaakt. Herstel 
dan de fout en SAVE de verbeterde versie. Mocht het 
programma met de boodschap ’data is weggezet 
checksum testen met sys...’komen dan is tot dusver 
alles goed. Het programma is nu in een stukje 
machinetaalgeheugen gezet. Als u het NEW com¬ 
mando geeft blijft het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Basic 
geschreven. 

Als u een programma heeft overgetikt SAVE het 
eerst, mocht er iets mis gaan dan hoeft u niet de ge¬ 
hele listing opnieuw te gaan intikken. Als u nu een 
programma op fouten wilt gaan controleren dan kunt 
u dat in het geheugen laden(wel eerst het checksum 
programma hebben gerund). Vervolgens typt u zon¬ 
der het programma te runnen de opdracht sys 
49152(c-64) of sys 1536 (c-16 en plus/4)in. 

Als alles goed is gegaan loopt er nu een rij regelnum¬ 
mers over het scherm met getallen erachter. Dezelf¬ 
de lijst staat ook achter elk door ons geplaatste pro¬ 
gramma. Wijkt nu een nummer achter een regelnum¬ 
mer af van het nummer dat in het blad staat dan 
heeft u in die regel iets anders ingetikt dan er in het 
blad stond. U kunt de stroom getallen d.m.v. de 
RUN/STOP toets pauzeren en weer vervolgen met 
de F1 of F7 toets. Het is uitermate belangrijk dat u 
goed met dit programma overweg kunt en mocht u 
het niet goed werkend krijgen bel dan gerust even 


10 i=49152 :rem beginadres 

20 reada:ifa<0then40:rem data ingelez 

en 

30 pokei,a:i=i+l:b=b+a:goto20 

40 if b<>16844thenprint"[SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dataregels!":b=0 
: end 

50 poke4 9184,148:poke49185, 192 

55 1=49300 

60 read a: ifa<0then80 

70 pokei,a:b=a+b:i=i+l:goto60 

80 if b<>20068thenprint"[SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dataregels![SPAC 
E](vanaf[SPACE]regel[SPACE]240)":b 
=0:end 

90 prinfdata [SPACE] is [SPACE] weggezet 

95 print"checksum[SPACE]testen[SPACE] 

met[SPACE]sys49152" 

100 data 165,43,166,44,133,163,134,164 
,169,147 

110 data 32,210,255,160,0,240,3,32,73, 
192 

120 data 32,73,192,208,1,96,32,225,255 
, 208 

130 data 3,76,116,164,32,81,192,32,73, 
192 

140 data 240,12,201,32,240,247,24,101, 

167,133 

150 data 167,76,37,192,166,167,169,0,1 

32.168 

160 data 32,205,189,169,13,32,210,255, 

164.168 

170 data 76,17,192,200,208,2,230,164,1 

77,163 

180 data 96,162,0,189,123,192,240,6,32 

, 210 

190 data 255,232,208,245,32,73,192,170 

,32,73 

200 data 192,132,168,32,205,189,162,3, 

169,32 

210 data 32,210,255,202,208,250,169,0, 

133,167 

220 data 164,168,96,82,69,71,69,76,32, 

0 

230 data -1 

240 data 165,197,201,3,240,7,201,4,240 

250 data 6,76,148,192,76,34,192,169 

260 data 147,32,210,255,76,161,192 

270 data -1 

** EINDE LISTING checksum 64 ** 







PRINT OUT C-64 met o.a. Muziekale hel 


Chechsum Checksum C-64 


REGEL 

i 

249 

REGEL ÏOO 

183 

REGEL 

2 

84 

REGEL 110 

158 

REGEL 

3 

105 

REGEL 120 

232 

REGEL 

4 

2 

REGEL 130 

183 

REGEL 

5 

246 

REGEL 140 

96 

REGEL 

6 

152 

REGEL 150 

96 

REGEL 

7 

249 

REGEL 160 

127 

REGEL 

10 

157 

REGEL 170 

71 

REGEL 

20 

64 

REGEL 180 

223 

REGEL 

30 

38 

REGEL 190 

73 

REGEL 

40 

57 

REGEL 200 

79 

REGEL 

50 

14 

REGEL 210 

109 

REGEL 

55 

251 

REGEL 220 

106 

REGEL 

60 

192 

REGEL 230 

225 

REGEL 

70 

42 

REGEL 240 

16 

REGEL 

80 

244 

REGEL 250 

163 

REGEL 

90 

245 

REGEL 2 60. 

92 

REGEL 

95 

237 

REGEL 270 

22 

1 Hoger lager 


T.A.Immink uit Sassenheim is de inzender van het 
volgende programma Hoger-lager. Dit is een spel 
met getallen, vul een getal in en de commodore laat 
weten of je te hoog of te laag zit. Probeer in zo min 
mogelijk beurten het juiste getal te raden. 

10 rem***** hoger/lager ***** 

20 rem*** voor de grote bollebozen ** 

★ 

30 rem*in regel 290 wordt de einduits 

lag bepaald* 

40 poke53280,0:poke53281,0:print"[CTR 

L 8] " 

50 dimr$(14):fori=ltol4:readr$(i):nex 

t 

60 f(1)=15:£(2)=30:f(3)=45 

70 z$="[39xSPACE]":rem 39 spaties 

80 fl$="[SHIFT-CLR][CTRL-9][CRSR-DOWN 

][1OxCRSR-RIGHT][SPACE]**[SPACE]ho 
ger/lager[SPACE]**[SPACE]" 

90 f2$="[CTRL-7][8xCRSR-DOWN][40xCOM- 

U][CTRL-8]":rem 40*comm.u 
100 printfl$ 

110 print"[CTRL-8][3xCRSR-DOWN][lOxCRS 
R-RIGHT]grenzen[SPACE]lopen[SPACE] 
van: " 

120 print"[1OxCRSR-RIGHT][18xCOM-Y] M 

130 print"[CRSR-DOWN][8xCRSR-RIGHT]1[S 

PACE]t/m[2xSPACE]5 0 0[SPACE] (max";f 
(1);"sec.)" 

140 print"[CRSR-DOWN][6xCRSR-RIGHT]501 

[SPACE]t/m[SPACE]1500[SPACE](max"; 
f (2);"sec.)" 

150 print"[CRSR-DOWN][5xCRSR-RIGHT]150 

1[SPACE]t/m[SPACE]3000[SPACE](max" 

;f (3);"sec.)" 

160 print"[3xCRSR-DOWN][13xCRSR-RIGHT] 

(geluid[SPACE]aan)" 

170 print"[2xCRSR-DOWN][13xCRSR-RIGHT] 

(stoppen=-l)" 

180 print"[3xCRSR-DOWN][CTRL-9][SPACE] 

toets[SPACE]" 

190 geta$:ifa$=""thenl90 

200 n$="zonder[SPACE]naam":t$=n$ 

210 printf1$:printf2$:y=0:mk=0:bk=0 

220 ifql=lthenq$=n$:n$=p$ 

230 ifq3=landk=mthenbl=b:tl=t:q3=0:p$= 

n$:goto270 

ifq3=landk<>mthenbl=0:tl=0:p$=t$:g 
oto270 


250 ifb<blthenbl=b:tl=t:p$=n$ 

260 ifb=blandt<=tlthentl=t:p$=n$ 

270 print"[HOME][4xCRSR-DOWN]de[SPACE] 
beste[SPACE]score[SPACE]is";bl;"be 
urten[SPACE]en";tl;"sec." 

280 print"[CRSR-DOWN]behaald[SPACE]doo 

r[SPACE]";"[CTRL-9][SPACE]";p$;"[S 
PACE]" 

290 ifbl>=landbl<=5andtl<fthenprint"[C 
RSR-DOWN]de[SPACE]koek[SPACE]is[SP 
ACE]op...";p$;"[SPACE]won[2xCRSR-U 
P]":q3=l 

300 ifql=lthenn$=q$:ql=0 
310 ifbl=0andtl=0thenq2=0 
320 ifp$On$thenprint" [CRSR-DOWN] iets [ 
SPACE]beter[SPACE]je[SPACE]best[SP 
ACE]doen[SPACE]";n$;"...[2xCRSR-DO 
WN]":goto340 

330 print"[4xCRSR-DOWN]" 

340 input"[CRSR-DOWN]hoe[SPACE]heet[SP 
ACE]jij";n$:ifn$=""thenn$=t$ 

350 print"[CRSR-DOWN]wil[SPACE]je[SPAC 
E]de[SPACE]tijden[SPACE]wijzigen.. 
(j/n)?" 

360 geta$:ifa$=""then360 
370 ifa$<>"j"then400 

380 fori=lto3 

390 print"[CRSR-DOWN][4xCRSR-RIGHT]tij 
d";i;f(i);"[SPACE]sec.[SPACE]w 
ordt";:inputf(i):nexti 
400 x=rnd(0):m=int(rnd(1)*3000+1):b=0 
410 ifm<=500thenf=f(1) 

420 ifm>500andm<=1500thenf=f(2) 

430 ifm>1500andm<=3000thenf=f(3) 

440 gosubl060 

450 print"[2xCRSR-DOWN]hoe[SPACE]pak[S 
PACE]j e[SPACE]het[SPACE]aan[SPACE] 
speler..." 

460 input"[CRSR-DOWN]zonder,[SPACE]bee 
t je[SPACE]of[SPACE]met[SPACE]lef[S 
PACE](z/b/m)";m$ 

470 ifm$="m"thenmk=l 
480 ifm$="b"thenbk=l 

490 print"[CRSR-DOWN][CTRL-9]neem[SPAC 
E]plaats[SPACE]speler,[SPACE]ik[SP 
ACE]tel[SPACE]af" 

500 fori=ltol500:next 

510 print"[CRSR-DOWN][CTRL-9][SPACE]ik 
[SPACE]heb[SPACE]een[SPACE]getal[S 
PACE][CTRL-0]";"[SPACE]start! 

520 print"[CRSR-RIGHT](max";f;"sec.)" 

530 fortt=ltol000:next 

540 gosubl060 

550 ti$="000000":t=0:k=0:goto610 

560 ifk=-lthen930 
570 ifmk=lthen610 
580 ifbk=lthenp=p+l:goto600 
590 p=p+2 

600 ifp=6thengosubl060 

610 i=int(rnd(l)*14+1):r$=r$(i):1$="[1 
lxSPACE]":rem 11 is lengte kortste 
r$ 

620 iff-t<=llthenr$="de[SPACE]tijd[SPA 
CE]is[SPACE]bijna[SPACE]op":print" 
[CRSR-UP][COM-8]" 

630 r=len(r$);ifr<=22thenr=22-r:rem 22 
is lengte langste r$ 

640 r$=r$+left$(1$,r) 

650 ifmk=lthen670 

660 print"[CRSR-DOWN]"r$;:inputk:b=b+l 
670 t=val(ti$) 


240 
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print-out print-out print-out print-out print-out 




ift>59+y*100thenq=(y+1)*40:y=y+l 
t=t-q 

ifmk=lthen720 

print"[CRSR-UP]"tab(30);f-t;"sec." 
if f-t<=0thenb=bl :t=tl:ql=l:goto840 
ifmk=0then7 60 

ifk>mthenpoke214,14:print"[CRSR-UP 
]"z$:print"[CRSR-UP]"r$;:inputk:b= 
b+1:goto560 

ifk<mthenpoke214,20:print"[CRSR-UP 
]"z$:print"[CRSR-UP]"r$;:inputk:b= 
b+1:goto560 

ifbk=landk>mthengosub970:goto560 
ifbk=landk<mthengosubl000 :goto560 
ifk>mthenprint"[CTRL-8][CRSR-DOWN] 
[CTRL-9][SPACE]lager[SPACE]":gosub 
970:goto560 

ifk<mthenprint"[CTRL-8][CRSR-DOWN] 
[CTRL-9][SPACE]hoger[SPACE]":gosub 
1000:goto560 
gosubl060 

print"[CTRL-8][2xCRSR-DOWN]goed[SP 
ACE]gedaan[SPACE]hoor.. 
print"[CRSR-DOWN]ons[SPACE]getal[S 
PACE]was";m 

print"[CRSR-DOWN]geraden[SPACE]in" 

;b;"beur(ten)[SPACE]en";t;"sec.":g 

oto870 

gosubl060 

print"[CTRL-8][2xCRSR-D0WN]shit,[S 
PACE]dat[SPACE]duurt[SPACE]te[SPAC 
E]lang...." 

print"[CRSR-DOWN]mijn[SPACE]getal[ 
SPACE]was";m;"en[SPACE]het[SPACE]j 
ouwe";k 

print"[CRSR-DOWN][CTRL-9]wil[SPACE 

]je[SPACE]stoppen[SPACE](j/n)?" 

geta$:ifa$=""then880 

ifa$="j"then930 

ifq2=lthen920 

bl=b:tl=t:q2=l 

goto210 

print"[SHIFT-CLR][10xCRSR-DOWN][11 
xCRSR-RIGHT]nou,[SPACE]jammer[SPAC 
E]dan..." 

print"[CRSR-DOWN][16xCRSR-RIGHT]to 
t[SPACE]ziens" 
print"[8xCRSR-DOWN]" 
end 

forl=54272to54296:pokel,0:next:v=5 
4296:w=54276:pokel, 0 
s=54278:h=54273:1=54272 rpokev, 15:p 
okea,190:pokes,89:pokeh,15:pokel,1 
35 

pokew,33:fortt=lto200:next:pokew,3 
2:return 

s=54272:forll=0to24:pokes+11,0:nex 
t:pokes+1,130:pokes+5,9:pokes+15,3 
0 

pokes+24,15:pokes+4,21:forll=0to30 
0:next:pokes+4,20:return 
data wat raad je,wat is je gok,wel 
k getal nu,te hoog of te laag 
data je kunt beter,is de tijd al o 
p,ga maar door,fout is fout 
data goed is goed,slechter kan nie 
t, je tijd gaat voorbij 
data de tijd is nog niet op,morgen 
opnieuw,zonder getal geen kans 
forz=10to23:poke214 , z 

printz$:nextz:p=0:poke214,12:return 


EINDE LISTING hoqer/laqer ** 


Checksum Hoger/lager 


regel 

10' 

66 

regel 

550 

8 

regel 

20 

3.99 

regel 

560 

167 

regel 

30 

191 

regel 

570 

68 

regel 

40 

218 

regel 

580 

40 

regel 

50 

47 

regel 

590 

46 

regel 

60 

23 

regel 

600 

190 

regel 

70 

194 

regel 

610 

100 

regel 

80 

32 

regel 

620 

64 

regel 

90 

157 

regel 

630 

134 

regel 

100 

52 

regel 

640 

79 

regel 

110 

134 

regel 

650 

74 

regel 

120 

221 

regel 

660 

244 

regel 

130 

46 

regel 

670 

221 

regel 

140 

139 

regel 

680 

246 

regel 

.150 

157 

regel 

690 

8 6 

regel 

160 

100 

regel 

700 

70 

regel 

170' 

141 

regel 

710 

165 

regel 

180 

177 

regel 

720 

54 

regel 

190 

103 

regel 

730 

73 

regel 

200 

45 

regel 

740 

108 

regel 

210 

117 

regel 

750 

107 

regel 

220 

2 

regel 

760 

37 

regel 

230 

140 

regel 

770 

72 

regel 

240 

110 

regel 

780 

73 

regel 

250 

152 

regel 

790 

118 

regel 

260 

227 

regel 

800 

84 

regel 

270 

101 

regel 

810 

30 

regel 

280 

194 

regel 

820 

190 

regel 

290 

109 

regel 

830 

233 

regel 

300 

206 

regel 

840 

84 

regel 

310: 

2 

regel 

850 

225 

regel 

320 

38 

regel 

860 

255 

regel 

330 

33 

regel 

870 

251. 

regel 

340 

214 

regel 

880 

109 

regel 

350 

2 02 

regel 

8.90 

115 

regel 

360 

102 

regel 

900 

51 

regel 

37 0 

29 

regel 

910 

204 

regel 

380 

132 

regel 

920 

28 

regel 

390 

223 

regel 

930 

144 

regel 

400 

106 

regel 

940 

62 

regel 

410 

57 

regel 

950 

1Q1 

regel 

420 

173 

regel 

960 

128 

regel 

430 

220 

regel 

970 

118 

regel 

440 

84 

regel 

980 

99 

regel 

450 

76 

regel 

990 

57 

regel 

460 

29 

regel 

1000 

122 

regel 

47 Q 

97 

regel 

10.10 

130 

regel 

480 

75 

regel 

1020 

222 

regel 

4.90 

225 

regel 

1030 

187 

regel 

500 

211 

regel 

1040 

11 

regel 

510 

163 

regel 

1050 

88 

regel 

520 

58 

regel 

1060 

229 

regel 

530 

45 

regel 

1070 

88 

regel 

540 

84 





Hoofdrekenen. 


W. van Vliet Uit Barendrecht is de ontwerper van dit 
programma. Dit rekenprogramma gebruikt twee vak¬ 
ken die verschillende cijfers in een honderdveld stop¬ 
pen. Je moet de uitkomst van de optelling intikken; is 
het antwoord fout dan komt de som zelf in beeld en 
kan er alsnog een antwoord gegeven worden. Kom je 
er dan nog niet uit dan legt de computer de som 
d.m.v. tientallen en eenheden uit. Hierdoor is het le¬ 
ren omgaan met cijfers een leuk spelletje geworden. 

1 v=0:printchr$(142):poke53280,15:po 
ke53281,15:print"[CTRL-1]":gosubl3 
8 

2 print"[SHIFT-CLR]":h=0:v=v+l:print 
chr$(142) :poke532 8 0,15:poke532 81,1 
5:print"[CTRL-1]" 




























print-out print-out print-out print-out print-out 


1 3 

g 

restore:print"[CTRL-1]":ifv=llthen 

35 

p—171:s=(a-20)*24+8:goto44 

1 

gotol33 

36 

p=155:s=(a-30)*24+8:goto44 

i 4 

poke53280,15:poke53281,15 

37 

p=139:s=(a-40)*24+8:goto44 I 

1 5 

print"[HOME][CTRL-7][SxSPACE][CTRL 

38 

p=123:s=(a-50)*24+8:goto44 | 

1 

9][CRSR-UP][5xSPACE]honderdveld[4 

39 

p=107:s=(a-60)*24+8:goto44 


xSPACE]:ifv>Othenprint"som[SPACE 

40 

p=91:s=(a-70)*24+8:goto44 

I 

]";v;"[CRSR-LEFT]" 

41 

p=75:s=(a-80)*24+8:goto44 f 

6 

print"[CTRL-1]" 

42 

p=59:s=(a-90)*24+8:goto44 

1 7 

print"[2xSPACE]91[SPACE]92[SPACE]9 

43 

p=59:s=(a-90)*24+11 j 


3[SPACE]94[SPACE]95[SPACE]96[SPACE 
]97[SPACE]98[SPACE]99[SPACE]100":p 

44 

printchr$(142):poke53271,0:poke532 

77,0:poke2040,13 


rint 

45 

1=13*64 | 

1 8 

print"[2xSPACE]81[SPACE]82[SPACE]8 

46 

forq=ltol+62:readz:pokeq,z:nextq 


3[SPACE]84[SPACE]85[SPACE]86[SPACE 
]87[SPACE]88[SPACE]89[SPACE]90":pr 

47 

poke53248,155:poke53249,p:poke5328 

7,0:poke53269,2 A 0:poke53271,2 A 0 


int 

48 

poke53277,2*0 

1 9 

print"[2xSPACE]71[SPACE]72[SPACE]7 

49 

forx=0tos :poke53248, x 


3[SPACE]74[SPACE]75[SPACE]76[SPACE 

50 

forr=lto3:nextr:nextx:gosubl31 

1 10 

]77[SPACE]78[SPACE]79[SPACE]80":pr 
int 

51 

forz=ltol000 :next:poke532 69,peek(5 

3269)and(255-2*0):restore 

print"[2xSPACE]61[SPACE]62[SPACE]6 

52 

ifb<=10then64 


3[SPACE]64[SPACE]65[SPACE]66[SPACE 

53 

ifb>10andb<=20then65 


]67[SPACE]68[SPACE]69[SPACE]70":pr 

54 

ifb>2 0andb<=3Othen 6 6 


int 

55 

ifb>30andb<=40then67 

11 

print"[2xSPACE]51[SPACE]52[SPACE]5 

56 

ifb>40andb<=50then68 


3[SPACE]54[SPACE]55[SPACE]56[SPACE 

57 

ifb>50andb<=60then69 


]57[SPACE]58[SPACE]59[SPACE]60":pr 

58 

ifb>60andb<=70then70 


int 

59 

ifb>70andb<=80then71 

12 

print"[2xSPACE]41[SPACE]42[SPACE]4 

60 

ifb>80andb<=90then72 


3[SPACE]44[SPACE]45[SPACE]46[SPACE 

61 

ifb>90andb<100then73 


]47[SPACE]48[SPACE]49[SPACE]50":pr 

62 

ifb=100then74 


int 

63 

gosubl31:foro=lto2000:next 

| 13 

print"[2xSPACE]31[SPACE]32[SPACE]3 

64 

p=203:s=b*24+8:goto75 


3[SPACE]34[SPACE]35[SPACE]36[SPACE 

65 

p=187:s=(b-10)*24+8:goto75 


]37[SPACE]38[SPACE]39[SPACE]40":pr 

66 

p=171:s=(b-20)*24+8:goto75 

| 14 

int 

67 

p=155:s=(b-30)*24+8:goto75 

print"[2xSPACE]21[SPACE]22[SPACE]2 

68 

p=139:s=(b-40)*24+8:goto75 


3[SPACE]2 4[SPACE]2 5[SPACE]2 6[SPACE 

69 

p=123:s=(b-50)*24+8:goto75 


]27[SPACE]28[SPACE]29[SPACE]30":pr 

70 

p=107:s=(b-60)*24+8:goto75 

| 15 

int 

71 

p=91:s=(b-70)*24+8:goto75 

print"[2xSPACE]11[SPACE]12[SPACE]1 

72 

p=75:s=(b-80)*24+8:goto75 


3[SPACE]14[SPACE]15[SPACE]16[SPACE 

73 

p=59:s=(b-90)*24+8:goto75 


]17[SPACE]18[SPACE]19[SPACE]20":pr 

74 

p=59:s=(b-90)*24+11:goto75 

1 16 

int 

75 

poke53271,0:poke53277,0:poke2041, 1 

print"[3xSPACE]1[2xSPACE]2[2xSPACE 


3:1=13*64 


]3[2xSPACE]4[2xSPACE]5[2xSPACE]6[2 

76 

forq=ltol+62:readz:pokeq,z:nextq 

| 17 

xSPACE]7[2xSPACE]8[2xSPACE]9[SPACE 
] 10" : ifvOlthenprint: gotol9 

77 

poke53248,155:poke53249,p:poke5328 

8, 7 : poke53269,2*0:poke53271,2*0:po 

print:print"[4xSPACE][CTRL-2]uitko 


ke53277,2*0 


mst[SPACE]kleiner[SPACE]dan[SPACE] 

78 

forx=0tos :poke53248,x 


";:openl,0:input#l,y$:y2=val(y$):c 

79 

forr=lto5:nextr:nextx:gosubl31 

18 

losel 

80 

f orm=ltol000 :next:poke532 69,peek(5 

ify2=0ory2>100thenclosel:y2=100 


3269)and(255-2*0) 

; i9 

a=int(99 *rnd(0))+1:b=int(99* rnd(0) 

81 

foro=ltol000 :next:gosubl20 

20 

)+l 

82 

print"[2xCRSR-UP][4xSPACE][CTRL-2] 

ifa+b>y2thenl9 


[4xSPACE]wat[SPACE]is[SPACE]de[SPA 

21 

print:print"[CRSR-UP][CTRL-1][31xS 
PACE] " 


CE]uitkomst[CRSR-RIGHT]";:openl,0: 
input#l,x$:x=val(x$):print:closel 

22 

ifa<=10then33 

83 

ifx<>a+bthengosub88 

23 

ifa>10anda<=20then34 

84 

closel: goto2 || 

24 

ifa>20anda<=30then35 

85 

data255,255,128,255, 255, 128,192,1, 

25 

ifa>30anda<=40then36 


128,192,1,128,192,1,128,192,1,128, 

26 

ifa>40anda<=50then37 


192,1 11 

27 

ifa>50anda<=60then38 

86 

datal28,192,1,128,192,1,128,255,25 

28 

ifa>60anda<=70then39 


5,128,255,255,128,0,0,0,0,0,0,0,0, 

29 

ifa>70anda<=80then40 


0 , 0 , o 11 

30 

ifa>80anda<=90then41 

87 

dataO,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

31 

ifa>90anda<100then42 


0, 0, 0, o 11 

32 

ifa=100then43 

88 

fory=ltol500:next:print"[SHIFT-CLR 

33 

p=203:s=a*24+9 : goto44 


]" :print"[4xCRSR-DOWN][CTRL-1][7xS Ij 

34 

p=187 : s=(a-10)*24+8 : goto44 


PACE ] de [ SPACE] som [ SPA.CE ] was [ SPACE] 



























89 


" ; a; " + ";b;" = ":gosubl20 
print"[3xCRSR-D0WN][CTRL-2][7xSPAC 
E]wat[SPACE]komt[SPACE]er[SPACE]ui 
t:";:openl,0:input#l,d$:d=val(d$): 
closel 

90 ifd<>a+bthengosub93 

91 goto2 

92 return 

93 print"[SHIFT-CLR][CTRL-1][4xSPACE] 
ik[SPACE]z al[SPACE]de[SPACE]som[SP 
ACE]even[SPACE]uitleggen":gosubl31 
:forq=lto4000:next:print 

94 print"[CRSR-UP][CTRL-7][7xSPACE][C 
TRL 9][24xSPACE] [CTRL-0] ":print"[C 
TRL 1]"; 

95 fory=ltol0 :cc=110:kk=110-(y*10) 

96 print"[CTRL-1][4xSPACE]O[COM-Y]P[2 
xCOM-Y]P[2xCOM-Y]P[2xCOM-Y]P[2xCOM 

Y]P[2xCOM-Y]P[2xCOM-Y]P[2xCOM-Y]P 
[2xCOM-Y]P[2xCOM-Y]P" 

97 print"[4xSPACE][COM-H][SPACE][COM- 
N][2xSPACE][COM-N][2xSPACE][COM-N] 
[2xSPACE][COM-N][2xSPACE][COM-N][2 
xSPACE][COM-N][2xSPACE][COM-N][2xS 
PACE][COM-N][2xSPACE][COM-N][2xSPA 
CE][COM-N]";:print"[CTRL-2]"kkrnex 
ty 

98 print"[CTRL-1][4xSPACE][30xCOM-Y]" 

:fori=ltol500:next 

99 x$="[CTRL-9][CTRL-1][3xSPACE]": q$= 
"[CTRL-9][CTRL-2][3xSPACE]":r$="[C 
TRL 9][CTRL-2][3xSPACE]":y$="[CTRL 

9][CTRL-1][3xSPACE]" 

100 print"[HOME][CRSR-UP][CTRL-7][36xS 
PACE]":print"[CTRL-1]"; 

101 print"[HOME][3xSPACE]getal[SPACE]1 
:[SPACE]";a;"[CTRL-2][7xSPACE]geta 
1[SPACE]2:[2xSPACE]";b:gosubl20:fo 
ri=lto3000:next 

102 print"[CTRL-7][7xSPACE][CTRL-9]sam 
en[SPACE]ziet[SPACE]het[SPACE]er[S 
PACE]zo[SPACE]uit[ CTRL-0 ][5xSPACE] 
":print"[CTRL-1]":f ori=ltol000 :nex 
t 

103 print"[HOME][19xCRSR-DOWN]" 

104 forw=ltoa:h=h+3 

105 printtab(h+1)x$ rprinttab(h+1)y$:go 
subll9:print"[2xCRSR-UP]"tab(h+1)x 
$:printtab(h+1)y$ 

106 print"[3xCRSR-UP]" 

107 ifw/10=int(w/10) thenh=0 :gosubl20:p 
rint:print"[4xCRSR-UP]" 

108 nextw 

109 fort=lto2000:next 

110 forz=a+ltoa+b:h=h+3 

111 printtab(h+1)q$:printtab(h+1)r$:go 
subll9:print"[2xCRSR-UP]"tab(h+1)q 
$:printtab(h+1)r$ 

112 print"[3xCRSR-UP]" 

113 ifz/10=int(z/10) thenh=0 :gosubl2 0 :p 
rint:print"[4xCRSR-UP]" 

114 nextz 

115 fori=lto2000:next:print"[HOME][23x 
CRSR-DOWN][4xSPACE]wat[SPACE]is[SP 
ACE]de[SPACE]uitkomst:[2xSPACE]"; 

116 openl,0:input#l,y$:y=val(y$):close 
1 

117 ify<>a+bthengosubl22 

118 fore=lto4000:next:goto2 

119 foru=ltol50:nextu:return 

120 j=54272:pokej+24,15:pokej+1,110:po 


kej+5,9:poke6+6,9:pokej+4,17:pokej 
+4,16 

121 return 

122 hh=int((a+b)/10):nn=(a+b)-(hh*10) 

123 print"[HOME][23xCRSR-DOWN][4xSPACE 
]helaas[SPACE]is[SPACE]j e[SPACE]an 
twoord[SPACE]fout":fori=lto3000:ne 
xt 

124 print"[HOME][23xCRSR-DOWN][30xSPAC 
E]":fori=lto3000:next 

125 print"[CTRL-3][HOME][23xCRSR-DOWN] 
[3xSPACE]je[SPACE]hebt";hh;"tienta 
Hen[SPACE]en";nn;"eenheden" 

126 fori=lto4000:next 

127 print"[HOME][23xCRSR-DOWN][38xSPAC 
E] " 

128 fori=ltol000 :next 

129 print"[CTRL-3][HOME][23xCRSR-DOWN] 

[6xSPACE]dat[SPACE]is[SPACE]dus";h 
h*10;"+";nn;"=";a+b 

130 gosubl20:forf=lto4000:next:return 

131 p=54272:forkk=0to24:pokep+kk,0:nex 
t:pokep+l,130:pokep+5,9:pokep+15,3 
0 

132 pokep+24,15:pokep+4,21: fort=ltol00 
0:next:pokep+4,20: fort=ltol000 :nex 
t:return 

133 print"[SHIFT-CLR][lOxSPACE]wat[SPA 
CE]wil[SPACE]je:" 

134 print"[2xCRSR-DOWN][6xSPACE][CTRL- 
9]s [CTRL-0] toppen[SPACE]o f[SPACE] [ 
CTRL-9]d [CTRL-0] oorgaan" 

135 getc$:ifc$=""thenl35 

136 ifc$<>"d"thenprint"[9xCRSR-DOWN][6 
xSPACE]t[SPACE]o[SPACE]t[4xSPACE]z 
[SPACE]i[SPACE]e[SPACE]n[SPACE]s": 
end 

137 goto2 

138 print"[SHIFT-CLR]":forq=ltol+62:re 
adz:next 

139 printchr$(14) ; 

140 forn=lto21:ifn=20thenprint"[CTRL-2 
] " 

141 reada$:k=k+l 

142 forl=ltolen(a$):printmid$(a$,1,1); 

:forhl=lto50:next:next 

143 printchr$(19):forg=ltok:print:next 
g:nextn 

144 datadit hoofdreken-programma gebru 
ikt twee 

145 datavakken die bij verschillende c 
yfers in 

146 dataeen honderdveld stoppen. 

147 dataje moet de uitkomst van de opt 
elling 

148 dataintikken.is het antwoord fout 
dan komt 

149 datade som zelf in beeld en kan al 
snog een 

150 dataantwoord geven worden. 

151 datais het antwoord fout dan worde 

n de twee 

152 datagetallen op een honderdveld ge 
plaatst. 

153 datadaarna wordt er nogmaals om ee 
n uit- 

154 datakomst gevraagd. 

155 datais het antwoord nog niet goed 

dan wordt 

datahet antwoord d.m.v. tientallen 


156 


en een- 















urn-toets 

data 

data-druk op een t 

volg- 

getf$:iff$=""thenl65 
iff$="[SPACE]"thenl67 
return 


EINDE LISTING hoofdreken 


Husselaar is een woordspelletje. De computer "hus¬ 
selt" een woord door elkaar en jij moet het woord in 
3 beurten proberen te raden. De inzender is Erwin 
Nederstigt. 


rem ***** copyright (c) 1987 by 
*** 



Checksum Hoofdrekenen J 

regel 

1 

143 

regel 

43 

’ 115 

regel 

85 

218 

regel 

12 / 

ii y 

regel 

2 

59 

regel 

44 

211 

regel 

86 

152 

regel 

128 

206 

regel 

3 

41 

regel 

45 

120 

regel 

87 

43 

regel 

129 

113 

regel 

4 

145 

regel 

46 

162 

regel 

88 

148 

regel 

130 

240 

regel 

5 

56 

regel 

47 

19 

regel 

89 

220 

regel 

131 

157 

regel 

6 

109 

regel 

48 

219 

regel 

90 

0 

regel 

132 

146 

reget 

7 

31 

regel 

49 

13 

regel 

91 

187 

regel 

133 

17 

regel 

8 

238 

regel 

50 

11 

regel 

92 

142 

regel 

134 

80 

regel 

9 

228 

regel 

51 

30 

regel 

93 

7 

regel 

135 

106 

regel 

1D 

218 

regel 

52 

164 

regel 

94 

19 

regel 

136 

53 

regel 

11 

208 

regel 

53 

169 

regel 

95 

60 

regel 

137 

187 

regel 

12 

198 

regel 

54 

172 

regel 

96 

241 

regel 

138 

83 

regel 

13 

188 

regel 

55 

175 

regel 

97 

55 

regel 

139 

81 

regel 

14 

178 

regel 

56 

178 

regel 

98 

236 

regel 

140 

105 

regel 

15 

168 

regel 

57 

181 

regel 

99 

220 

regel 

141 

73 

regel 

16 

56 

regel 

58 

175 

regel 

ito 

130 

regel 

142 

200 

regel 

17 

96 

regel 

59 

178 

regel 

101 

130 

regel 

14 3 

207 

regel 

1.8 

245 

regel 

60 

181. 

regel 

102 

18 

regel 

144 

174 

regel 

'£9 

151 

regel 

61 

45 

regel 

103 

51 

regel 

145 

21 

regel 

20 

5 

regel 

62 

34 

regel 

104 

249 

regel 

146 

225 

regel 

21 

209 

regel 

63 

49 

regel 

105 

136 

regel 

14-7 

108 

regel 

22 

159 

regel 

64 

59 

regel 

106 

144 

regel 

148 

69 

regel 

23 

163 

regel 

65 

163 

regel 

107 

102 

regel 

14 9 

40 

regel 

24 

166 

regel 

66 

157 

regel 

108 

217 

regel 

150 

99 

regel 

25 

169 

regel 

67 

160 

regel 

109 

218 

regel 

151 

12 

regel 

26 

172 

regel 

68 

163 

regel 

110 

211 

regel 

152 

72 

regel 

27 

175 

regel 

69 

lis;r- 

regel 

111 

108 

regel 

153 

54 

regel 

28 

178 

regel 

70 

160 

regel 

112 

144 

regel 

154 

128 

regel 

29 

172 

regel 

71 

*$15 

regel 

11.3 

108 

regel 

155 

4 

regel 

30 

175 

regel 

72 

118 

regel 

114 

220 

regel 

156 

203 

regel 

3i 

39 

regel 

73 

121 

regel 

115 

1.34 

regel 

157 

175 

regel 

32 

29 

regel 

74 

163 

regel 

116 

167 

regel 

158 

187 

regel 

33 

55 

regel 

75 

4 

regel 

117 

62 

regel 

159 

159 

regel 

34 

158 

regel 

76 

162 

regel 

118 

194 

regel 

160 

90 

regel 

35 

152 

regel 

77 

48 

regel 

119 

204 

regel 

161 

131 

regel 

36 

155 

regel 

78 

13 

regel 

120 

53 

regel 

162 

86 

regel 

37 

1:58 

regel 

79 

13 

regel 

121 

142 

regel 

163 

131 

regel- 

-38 

152 

regel 

80 

75 

regel 

122 

115 

regel 

164 

146 

regel 

39 

155 

regel 

81 

4 6 

regel 

123 

6 

regel 

165 

115 

regel 

40 

110 

regel 

82 

158 

regel 

124 

129 

regel 

166 

48 

regel 

41 

113 

regel 

83 

24 

regel 

125 

164 

regel 

167 

14 

regel 

42 

116 

regel 

8 4 

198 

regel 

126 

2.09 
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print-out print-out print-out print-out print-out 



II 220 
230 
240 
250 
260 


■Hl 


poke53265,11:print"[HOME][CTRL-3][ 
6xCRSR-DOWN][12xCRSR-RIGHT]UCCCCCC 
CCCCCCCCCI" 

print"[12xCRSR-RIGHT]B[CTRL-9][15x 
SPACE] [CTRL-0] B" 

print"[CTRL-2][12xCRSR-RIGHT]B[CTR 
L 9][3xSPACE]husselaar[3xSPACE][CT 
RL 0]B" 

print" [CTRL-7 ] [12xCRSR-RIGHT]B[CTR 

L 9][15xSPACE] [CTRL-0] B" 

print"[12xCRSR - RIGHT]JCCCCCCCCCCCC 

CCCK" 

print"[CTRL-8][3xCRSR-D0WN][7xCRSR 
-RIGHT]created[SPACE]by[SPACE]erwi 
n[SPACE]nederstigt" 

print"[2xCRSR-D0WN][3xCRSR-RIGHT]c 
opyright[SPACE](c)[SPACE]1987[SPAC 
E]by[SPACE]miracle[SPACE]soft":pok 
e53265,27 

input" [CTRL-6][HOME][20xCRSR-DOWN] 
[8xCRSR-RIGHT] welk [SPACE] niveau [SP 
ACE] (1-4) [SPACE] ";zz 
ifzz<lorzz>4then90 
gotol30 
end 

print"[CTRL-6][SHIFT-CLR]":poke532 
80,0:poke53281,0:gosub460:c=l 
poke53265,11 

print"[HOME][8xCRSR-RIGHT][7xCRSR- 
DOWN]goed:";g:print"[CRSR-UP][22xC 
RSR-RIGHT]fout:" ; f ; 

print"[CTRL-6][HOME][9xCRSR-DOWN][ 
CTRL-9][40XSPACE][CTRL-0]"; 
print"[CTRL-9][SPACE] [CTRL-0] [38xS 
PACE][CTRL-9][SPACE] [CTRL-0] 
print"[CTRL-9][SPACE] [CTRL-0] [38xS 
PACE][CTRL-9][SPACE] [CTRL-0] 
print"[CTRL-9][SPACE] [CTRL-0] [38xS 
PACE][CTRL-9][SPACE] [CTRL-0] 
print"[CTRL-9][40xSPACE] [CTRL-0] " 
print"[HOME][llxCRSR-DOWN]"tab(16) 

"[CTRL-3]"e$ 
ifzz=lthengosub420 
ifzz=2thengosub440 
ifzz=3thengosub450 
ifzz=4then260 

print" [HOME] [ 3xCRSR-DOWN] beurt: [SP 
ACE] ";c ; " [SPACE] (je [SPACE] hebt [SPA 
CE] 3 [SPACE] kansen!)":poke53265, 27 
input" [HOME] [19xCRSR-DOWN] [CTRL-8] 
wat [SPACE] is [SPACE] het [SPACE] woord 
[SPACE] ";inp$ 

ifinp$=beg$theng=g+l:print"[CRSR-D 
OWN] [17 xCRSR-RIGHT] [CTRL-9] [CTRL-3 
]goed! [CTRL-0] ":goto350 
ifinp$Obeg$thenprint" [CRSR-UP] wat 
[SPACE]is[SPACE]het[SPACE]woord[SP 
ACE]?[18xSPACE]":gosub300:goto270 
c=c+l 

ifc>3then330:return 

print"[HOME][3xCRSR-DOWN]beurt:[SP 
ACE]";c;:return 

print" [HOME][21xCRSR-DOWN] het [SPAC 
E ]goede[ SPACE ]woord[ SPACE ]was:[ SPA 
CE] "beg$ 
f=f+l 

print"[CRSR-DOWN][12xSPACE][CTRL-9 
][CTRL-7]druk[SPACE]spatiebalk[CTR 
L 0] " 

geti$:ifi$=chr$(32)then390 
goto360 


) poke53265,11:print"[HOME][8xCRSR-R 

IGHT][7xCRSR-DOWN]goed:[SPACE]";g; 

"[5xCRSR-RIGHT]fout:[SPACE]";f ; 

3 gotol30 
3 end 

3 print"[2xCRSR-DOWN]de[SPACE]beginl 
etter[SPACE]is:[SPACE]";left$(beg$ 
,1) 

3 print”[CRSR-DOWN]de[SPACE]eindlett 
er[SPACE]is:[SPACE]";right$(beg$,1 
):return 

0 print"[2xCRSR-DOWN]de[SPACE]beginl 
etter[SPACE]is:[SPACE]";left$(beg$ 

,1):return 

0 print"[2xCRSR-DOWN]de[SPACE]eindle 
tter[SPACE]is:[SPACE]";right$(beg$ 

,1):return 
0 : 

0 rem inlezing en rnd-zetting woord 
0 : 

0 e$="":beg$="":restore 

0 y=int(rnd(0)*84)+1 
0 forx=ltoy 
0 readbeg$:a$=beg$ 

0 nextx 

0 fori=ltolen(beg$) 

0 l=len(a$):b=int(rnd(l)*1)+1 
0 e$=e$+mid$(a$,b,1) 

0 k$=left$(a$,b-1):a$=k$+right$(a$,1 
-b) 

0 nexti 
0 return 

0 data appel,schrijfmachine,joystick 
,computer,frituurpan,bloknoot,apen 
ootje 

0 data televisie,tekenspullen,komma, 
spatiebalk,potlood,penseel,tekenpe 
n 

!0 data hoestdrank,lolbroek,kapper,me 
rkkleding,papierbak,postzegel,verz 
ameling 

10 data lachebek,artikelen,cijfer,env 
elop,inktpen,lampekap,agenda,schoo 
1, knop 

10 data banaan,sinaasappel,toetje,dis 
kette,cassette,geldstuk,munten,pla 
ntenbak 

>0 data boekensteun,kattevoer,kleding 
,vrachtwagen,taxi,chauffeur,kousen 
,rekenen 

50 data schoen,veter,plaksel,tekening 
,kussen,toets,haring,kabeljauw,vis 
sen,lamp 

10 data hond,stoel,bloem,voedsel,snoe 
r,vloer,deken,bril,sigaret,telefoo 
n 

30 data bronwater,portemonee,nagellak 
,plakspullen,videobanden,printerpa 
pier 

30 data kamperfoelie,claxon,toeschouw 
ers,kijkcijfers,levensduur,kaarsve 
t 

30 data cadeaubon,boekenwurm,klaproos 
,amperemeter,gefeliciteerd, toiletp 
apier 

EINDE LISTING husselaar ** 
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| Checksum Husselaar ! 

regel 

i 

205 

regel 320 

96 

regel 

2 

58 

regel 330 

60 

regel 

3 

72 

regel 340 

25 

regel 

4 

58 

regel 350 

199 

regel 

5 

244 

regel 360 

178 

regel 

6 

58 

regel 370 

34 

regel 

7 

230 

regel 380 

128 

regel 

8 

58 

regel 390 

210 

regel 

10 

47 

regel 400 

29 

regel 

2 0. 

61 

regel 410 

128 

regel 

30 

97 

regel 420 

54 

regel 

40 

14 

regel 430 

169 

regel 

50 

128 

regel 440 

254 

regel 

60 

59 

regel 450 

186 

regel 

70 

138 

regel 460 

58 

regel 

80 

187 

regel 470 

67 

regel 

90 

3 

regel 480 

58 

regel 

100 

124 

regel 490 

71 

regel 

110 

29 

regel 500 

64 

regel 

120 

128 

regel 510 

185 

regel 

130 

174 

regel 520 

188 

regel 

140 

42 

regel 530 

218 

regel 

15Q 

132 

regel 540 

87 

regel 

160 

134 

regel 550 

187 

regel 

170 

96 

regel 560 

121 

regel 

180 

96 

regel 570 

55 

regel 

190 

96 

regel 580 

203 

regel 

200 

129 

regel 590 

142 

regel 

210 

167 

regel 600 

247 

regel 

220 

236 

regel 610 

171 

regel 

230 

239 

regel 620 

88 

regel 

240 

241 

regel 630 

129 

regel 

250 

100 

regel 640 

39 

regel 

260 

94 

regel 650 

147 

regel 

270 

247 

regel 660 

111 

regel 

280 

108 

regel 670 

74 

regel 

290 

234 

regel 680 

159 

regel 

300 

19 

regel 690 

224 

regel 

310 

183 

regel 700 

192 

Muzikale hel $ 


Muzikale hel is een ongewoon adventurespel voor 
één persoon versus computer. De originaliteit van het 
programma ligt ten eerste aan het woordgebruik. De 
computer ontleedt de ingevoerde zinnen en slaat de 
ontdekte trefwoorden op in code. De computer geeft 
dan in een conversatie antwoord op de ingegeven 
kernwoorden. Reageert de computer niet dan bete¬ 
kend het dat de computer niets herkend heeft. De 
tweede merkwaardigheid is de plaats waar het ge¬ 
heel zich afspeelt. Er komt nl. geen noord, zuid enz. 
aan te pas (slecht eenmaal bij de eigenlijke ontsnap¬ 
ping). Hierdoor wordt de nadruk gelegd op de conver¬ 
satie. Er hoeft ook niets opgepakt te worden. Maakt 
dit alles u nieuwsgierig? Dat is dan ook de bedoeling. 
De inzender van dit programma is Maurice de Wit die 
ook nog kwijt wil dat er geluidseffecten bij zitten die u 
al dan niet nodig heeft om tot een ontsnapping te ko¬ 
men. 

10 dima$(22,8),k$(84):poke53281,0:pok 
e53280,0:poke646,3:printchr$(147) 

20 deffna(v)=val(left$(ti$, 2))*3600+v 
al(mid$(ti$,3,2))*60+val(right$(ti 
$,2))+v 

30 poke53272,23:d$="[25xCRSR-D0WN]":h 

$="hinm." :r$=chr$ (13) 

40 deffnb(k)=asc(mid$(a$,k,1))-3* (asc 
(mid$(a$,k,1))>35) 

50 printd$"hoor[SPACE]je[SPACE]gespre 

kspartner[SPACE] uit [SPACE]voordat[ 




SPACE]hij[SPACE]jou[SPACE](na[SPAC 
E]1/2[SPACE]minuut[SPACE]stilte)" 
60 prinf'vragen[SPACE]stelt.[SPACE]do 
e1: [SPACE]ont snappen[SPACE]uit[SPA 
CE]de[3xSPACE][CTRL-8]muzikale[SPA 
CE]hel[CTRL-4][SPACE]waarin[SPACE] 
je[SPACE]je[SPACE] 

70 print"bevindt[SPACE]!"r$"[CRSR-DOW 

N][COM-6]nog[SPACE]'n[SPACE]tipje: 
"r$"slijmen[SPACE]helpt[SPACE](mee 
stal)"r$"en[SPACE]zet[SPACE]'t"; 

80 print"[SPACE]geluid[SPACE]van[SPAC 

E]je[SPACE]tv[SPACE]aan.[CRSR-DOWN 
][CTRL-8]"r$"p.s.[SPACE]'n[SPACE]e 
ventueel[SPACE]haperende[SPACE]kur 
sor[SPACE]is[SPACE]'t"; 

90 print"(onschuldige[SPACE]en[SPACE] 

kortstondige)[SPACE]gevolg[SPACE]v 
an'n[SPACE]zgn.[SPACE]garbage[SPAC 
E]collection.[COM-3]" 

100 forx=0to24:poke54272+x,0:nextx:for 

x=0to22:ifx=16orx=19thennextx 
110 readn:a$(x,0)=str$(n):fory=lton:re 

ada$:fork=ltolen(a$) 

120 a$ (x, y) =a$ (x, y) +chr$ (fnb (k) ) :nextk 

, y, x 

130 print:print:print"lezen[SPACE]is[S 
PACE]uiterst[SPACE]leerrijk.[SPACE 
]in[SPACE]hoofdstuk" 

140 print"13[SPACE]v.18[SPACE]van[SPAC 

E]'t[SPACE]kommersieel[SPACE]meest 
[SPACE]sukses-" ; 

150 print"volle[SPACE]verhaaltjesboek[ 

SPACE]ter[SPACE]wereld[SPACE]wordt 

160 print"de[SPACE]waarheid[SPACE]je[S 

PACE]geopenbaard.":poke646, 10 

230 forx=49152to49220:reada$ 

240 y= (asc(left$(a$,1))-64)*16+asc(rig 
ht$(a$,1))-64:pokex,y:nextx 
250 forx=0to84:reada$:fork=ltolen(a$): 

k$ (x) =k$ (x) +chr$ (fnb (k) ) : nextk, x 
300 printd$:pokel98,0:waitl98,1:pokel9 
8,0:sys49152:ti$="000000" 

400 printk$(0) :v=0:gosub500:ifmid$(c$, 
8,1)<>"l"thenprintk$(1):goto430 
410 printk$(2) :gosub500:ifmid$(c$,8,1) 
<>"l"thenprintk$(3):goto430 
420 goto410 

430 gosub 500:ifright$(c$,1)="6"thenp= 

p+1 

440 printh$:v=l:goto500 

500 forn=0tol0:b$(n)="":nextn:c=0:c$=" 

000000000":print"[CRSR-DOWN][CTRL- 
8][COM-0][CRSR-LEFT][COM-3]:t=fn 
a (30) 

505 n=0:s=l 

510 geta$ : ifb$ (0) =" "andvOOandfna (0) => 

tthenonvgoto600,650,700, 750, 800,85 
0, 900 

520 ifa$=""then510 

530 a=asc(a$):ifa>64anda<91thenb$(n)=b 

$(n)+a$:print"[CTRL-8]"a$"[COM-@][ 
CRSR-LEFT][COM-3]:s=0 
540 ifa=32thenprint"[CTRL-8][SPACE][CO 

M @][CRSR-LEFT][COM-3]:ifs=0then 
gosub4000:s=l:ifn<10anda<>13thenn= 
n+1 

550 ifa=13andb$(n)O""thengosub4000:go 

to6000 

ifa=20andlen(b$(n))>0thenb$(n)=lef 


560 
































t$ (b$(n),len(b$(n))-1) :print"[CTRL 
8][SPACE][2xCRSR-LEFT][COM-0][CRS 
R-LEFT][COM-3]"; 

570 goto510 

600 printk$(4):v=0:k$=k$(5) 

610 gosub500:ifmid$(c$,8,1)="l"thenpri 
ntk$:k$="":goto610 

620 printk$(6):gosub500:printk$(7);:po 
kei9,64:input"[CTRL-8]";a$:pokel9, 

0 

630 ifval(a$)=786-peek(49152)thenp=p+l 
640 printr$r$"[COM-3]"h$:v=2:goto500 
650 printk$(8)r$k$(9) :v=0:gosub 500:if 
right$(c$,1)="2"thenp=p+l 
660 printh$:v=3:goto500 

700 printk$(10)r$k$(11):v=0:gosub500:i 
fright$(c$,1)="3"thenp=p+l 
710 printh$:v=4:goto500 
750 printk$(12)r$k$(13);:pokel9,64 
760 input"[CTRL-8]";a$:pokel9,0:t=fna( 
0)/60:ifval(a$)>t-landval(a$)<t+lt 
henp=p+l 

770 printr$r$"[COM-3]"h$:v=5:goto500 
800 printk$(14)r$k$(15):v=0:gosub500:i 
fright$(c$,1)=”4"thenp=p+l 
810 printh$:v=6:goto500 
850 printk$(16):v=0:gosub500:ifright$( 
c$,1)="5"thenp=p+l 
860 printh$:v=7:goto500 
900 printk$(17):v=0:gosub500:ifmid$(c$ 
,8,1)<>"l"thenprintk$(18):goto920 
910 forj=19to26:printk$(j):nextj 

920 v=0:j=l:goto500 

4000 a=asc(b$(n))-64:x=a*(a>0)*(a<24)*( 
a<>17)*(a<>20)-1:ifx<0then4070 
4010 e=0:g=0:fory=ltoval(a$(x, 0)) :a$=a$ 

(x,y) 

4020 ifb$ (n)=mid$(a$,3)thene=val(left?( 
a$,1)):g=val(mid$(a$,2,1)) 

4030 nexty:ife=0then4070 

4040 f=val(mid$(c$,9-g,1)):if f=0thenc=c 
+e*10 A g:goto4070 

4050 ifg=lande*f=2thenc$=left$(c$,7)+"1 
"+right$ (c$,1) :c=val(c$) :goto4070 
4060 iff<>ethenc$=left$(c$,8-g) +"0"+rig 
ht$(c$,g):c=val(c$) 

4070 ifn=10thena=-51 

4080 c$=right$("000000000"+mid$(str$(c) 

,2),9):a=a+64:return 

6000 print:ifmid$(c$,7,1)="l"thenp=pand 
15 

6010 ifmid$(c$,7,1)="2"thenp=porl28 
6020 ifmid$(c$,2,1)="l"thenp=por64 
6090 ifv=0andj=0thenreturn 
6100 ifc$="010000000"thenprintk$(27) 
6110 ifmid$(c$,5,1)="l"thenprintk$(28) 
6120 ifmid$(c$,5,1)="2"andmid$(c$, 6, 1) = 
"3"thenprintk$(29)r$k$(30) 

6130 ifmid$(c$,5,1)="5"thenprintk$(31)r 
$k$ (32) 

6140 ifmid$(c$,5,1)="3"thenprintk$ (33) 
6150 ifmid$(c$,5,1)="2"andmid$(c$, 6,1) = 
"l"andmid$(c$,7,1)O"0"thenprintk$ 

(34) 

6160 ifmid$(c$, 5,1)="2"andmid$(c$,6,1)- 
"l"andmid$(c$,7,1) <>"0"thenprintk$ 

(35) 

6170 ifmid$(c$,5,1)="4"andmid$(c$,1,1)= 
"2"thenprintk$(36)r$k$(37)r$k$ (38) 
6180 ifmid$(c$,6,1)=”l"andmid$(c$, 8,1) = 
"1"thenprintk$(39)r$k$(40)int(fna( 


0)/10) 

6190 ifmid$(c$,6,1)="l"andmid$(c$, 8,1) = 
"l"thenprintk$(41) 

6200 ifmid$(c$,4,1)="l"thenprintk$(42)r 
$k$(43):pokel98,0:waitl98,1:printk 
$(44) 

6210 ifmid$(c$,1,1)="l"thenprintk$(45)r 
$k$(46)r$k$(47) 

6220 ifmid$(c$,3,1)="1"thenprintk$(48)r 
$k$(49) 

6230 ifmid$(c$,1,1)="6"thenprintk$(50)r 
$k$(51)r$k$(52) 

6240 ifmid$(c$,5,1)="4"andmid$(c$,6,1)= 
"2"thenprintk$(53) 

6250 ifc$="020000000"thenprintk$(54) 

6260 ifmid$(c$,1,1)="3"thenprintk$(55)r 
$k$(56)r$k$(57)r$k$(58)r$k$(59) 

6270 ifmid$(c$,1,1)="7"thenprintk$(60) 

6280 ifmid$(c$,1,1)="4"thenprintk$(61) 

6290 ifmid$ (c$, 1,1) ="5"andjOlthenprint 
k$(62)r$k$(63) 

6300 ifmid$(c$,1,1)="5"andj=lthenprintk 
$(62) r$k$(64)r$k$(65)r$k$ (66) :goto 
7000 

6900 goto500 

7000 j=0:gosub500:ifmid$(c$,9,1)="1"the 

n7030 

7010 printk$(67)r$k$(68):h=2000:for j=0t 
o-lstepO:f ort=0toh :nextt:h=h+200*( 
h>0) 

7020 printd$r$k$(69):nextj 

7030 printk$ (70)r$k$(71)r$k$(72) :h=int( 
rnd(0) *3)+1:poke54284,0:poke54285, 
240 

7040 printk$(73)r$k$(74)r$r$"[CTRL-8][C 
OM @][COM-3]":f ort=0tol 600:nextt:t 
=0:onhgoto8000,8010,8020 

7050 t=t+l:geta$:ifa$=""andt<1000then70 
50 

7055 a$=a$+"[SPACE]":ifasc(a$)=71-(3-h) 

* (3-h)then7070 

7060 h=2000:for j=0to-lstep0 : fort=0toh: n 

extt:h=h+200*(h>0):printd$r$k$(75) 

:next j 

7070 printk$(76)r$k$(77):fort=0to3000:n 


ext:poke53281,11:::::::::poke53281 
,12 : : : 

7080 : : : :poke53281,15 ::::::: : :poke53281 


,1:print"[SHIFT-CLR][CTRL-3]"d$k$( 
78):ifp=199then7500 

7090 fort=0to2400:next:poke54284,79:pok 
e54285,252:poke54283,129:fort=0to9 
9:next 

7100 poke53281,2:poke64 6,1:poke542 83, 12 

8:printk$(81)r$k$(82)r$k$ (83) 

7110 h=3000:for j=0to-lstep0 : fort=0toh:n 

extt:h=h+300*(h>0):printd$r$k$(84) 

:nextj 

7500 fort=0tol600:nextt:printk$(79) 

7510 h=2000:for j=0to-lstep0 : fort=0toh :n 

extt:h=h+2 00*(h>0) :printd$r$k$(80) 

:nextj 

8000 poke54279,90:poke54280,4:gosub8030 

:gosub8040:gosub8030:gosub8040:got 
O 7050 

8010 poke54279,207:poke54280,5:gosub804 

0:gosub8040:gosub8030:gosub8040:go 
to7050 

8020 poke54279,133:poke54280, 6:gosub803 

0:gosub8030:gosub8040:goto7050 

8030 poke54283,17:fort=0tol50:nextt:pok 
























print-out print-out print-out print -out print-out 



e54283,0:fort=0to50:nextt:return 

8040 poke542 83,17:fort=0to50:nextt:poke 
54283,0:fort=0to50:nextt:return 

9000 data5,/.>iibp,/.>iqfga, ,4>r?, .4>ip 
qr?ifbcq,.3>asfbp,5, .0?bk,.0?bkq, . 
-?lsbk 

9001 data0-?lp@e, /.?bpq, 1, 2-@efiaobk, 6, 

.5alopq,.5aofkhbk,35alkhbo,/Oalb,2 
5abro 

9002 data/-aorhtboh,3,/.bodbkp,.5bqbk,/ 
4be,2,45cirfq,45cirfqbk,5,..dbbk,/ 

. dlba 

9003 data//db,//dfg,/5dbirfa,8, .5elkdbo 
,.3ebim,.3ebimq,.3ebimbk,.3erim,/4 
e>iil 

9004 data.-elld,21elb,1, 00fp, 7, /.g>, /.g 
>tbi,/.grfpq,./gb,./glr,,/glrt,./g 
fg, 2 

9005 data/.hilmq,2-hfkabobk,1,l-il>c, 2, 

/.jllf,1-jb>q,7,..kfbqp,..kfbq,..k 
llfq 

9006 data..kbb,..kfhp,..kbodbkp,..kbbk, 
3,/.llfq,/.lh,.-ljelld,2,/.mofj>,2 
5mlloq 

9007 datal, . 3o»a, 7,3-pmfgq, 3-ploov, . 4p 
sm,.2pqlm,05pibrqbi,15pilq,/-pifkd 
bo, 3 

9008 data//r,//rt,25rfqd>kd,4,3-sbodbsf 
kd,3-sbodbbc,3-sbodbsbk,3-sbodbbcq 
, 6 

9009 data/.tbi, . lt»o,/ltfb, 01t»ol j , 11 
t>q,/4tbboqgb 

9100 datagh,ji,bf,hm,ad,@c,ji,l@,hm,ae, 
@c,ji,@g,hm,ah,md,ji,@a,hm,@a,md,j 

i, @@ 

9101 datahm,@e,md,ji,go,hm,@f,md, jb, cl, 
hn, dd, 1@, eh, f @, jn, dd, 1@ , 1 j, hn, dd, 1 
@, o@ 

9102 data®c,dl,ca,nj,ji, d@,hm, @d,md, ji, 
da, hm, @d, md, jb, cl, hn, dd, 1@, dl, ca, n 

j, cl 

9300 dataebb) ofbm a»o fbj>ka <,gb eb? 
q jb t>hhbo dbj»hq+,l kbb < 

9301 datagb illd qbdbk jfg >iplc $h $k 
hfka t>p+,j>d $h glr t>q so>dbk < 

9302 datalh) a>k elr $h j$k jlka tbi+,e 
lb ebbq gfg bfdbki$h < 

9303 databk t>q fp gb krjjbo) wlka»o < 

,tfb d>o>kabboq jb $k bboi$hb sli 
t>ppbk 

9304 data?be>kabifkd+++wt>oq lm tfq <,e 
b? gb pijp bkfd fabb tfb $q p@efia 
bo* 

9305 datatboh efbo dba»k ebbcq <,tbbq 
gb kld elbsbbi jfkrrqgbp tb efbo 

9306 datakr >i ?bwfd wfgk < ,bo hljq $k 

pqbkbk sibbojrfp rfq ab ebi) 

9307 dat at fb wlr afb dbj»hq eb??bk <, s 
llo tfb fp ab ebi slidbkp m>q < 

9308 data?bk gb pijp ?>kd s>k jb <,i>c> 
>oa+++++,a>q w>i tbi kfbq+++ 

9309 data?>e) t>q ?bk gfg sobpbi$h p@ef 
gkebfifd+,gb albq $q fk gb ?olbh s 
llo jb 

| 9310 data%lc kfbq pljp&+,gb ?bkq >ip ab 
alla a>q gb efbo silo 

9311 data>iqfga jlbq ?ifgsbk+ e> e>+,>i 
p ab alla+++>ip ab alla a>q $h gb 
ab 

9312 datapibrqbi kfbq w>i dbsbk+++++ 

| 9400 datapifgj?>i+++++,tb wfgk fk ab jr 



wfh>ib ebi+++++ 


9401 data>iibbk gfg bk fh wfgk efbo) sb 
oabo fp,bo kfbj>ka+++++ 

9402 dataa>q fp silo jfg $k tbbq bk sll 
o glr $k, so»d+++++ 

9403 dataa>q tfi gb kfbq b@eq tbqbk++++ 
+,$h ?bk+++a>$p >iibp+ 

9404 datajbbo elbc gb kfbq qb tbqbk++++ 

+ , t»op@efgki$h ?bk gb dbtllk dbqf 
hq) 

9405 datakbq >ip afb o>ob ht>pq s>k $k, 
gebolkfjrp+++++ 

9406 datagb eb?q dbifgh7 $q fp ab pifkd 
bo s>k $k,hilh+ ab dolqb tfgwbo fp 

obbap 

9407 datado>abk dbao»fa+ slid $j sboab 
o+++++,hkfgm gb a$o bsbk qrppbkrfq 
+++ 

9408 datalh) qlq pqo>hp+++++,>e>+++gb ? 
bkq bo tbbo+++++ 

9409 databo fp ql@e kfhp qb bqbk lc qb 
aofkhbk+,qolrtbkp+++ao>@ri> fp db? 
lobk 

9410 datarfq $k bkloj dbe>hq?olla+++++, 
hfgh+++wlka»o+++gb wlbhq $q wbic 
j»o 

9411 datarfq+ $h ?bk kfbq s>k ab sss+++ 
++,bo fp efbo kir bbkj»i dbbk if@ 
eq+ 

9412 dataa>q fp wl lj ab hfkabobk %wl>i 
p gfg&,?>kd qb j>hbk+++++ 

9413 datagb elloq efbo) kbq >ip fh+++++ 

, mo»q dbbk lkwf k+++++ 

9414 dataab pibrqbi fp gb bkfdb ellm+++ 

,bk jfgk j>@eq+ 

9415 datagb hofgdq $j wlj»o kfbq s>k j 
b) j>>o, jfpp@efbk hljq*fb k»o gb 
qlb 

9416 data>ip gb $j cirfq+++e> e>+++++,c 
irfqbk h>k gb kfbq) dbillc jb+++++ 

9417 data$q pilq wfq k>qrroi$h lm ab ml 
loq+++++,h>k gb ab mlloq kfbq sfka 
bk < 

9418 data$q fp ql@e lj dbh s>k qb tloab 
k+, lh) $h w>i gb t>q lm tbd ebimbk 
7 

9419 datatbbq t»o gb ?bkq bk t»o gb e 
bbk jlbq+,t»o fp a>k ab abro < 

9420 datae> e> e>+++?bobfa gb j»o silo 

lm ab,bbrtfdb arfpqbokfp+++ 

9421 dataarfpqbokfp+++,hfgh) kr h>k gb 
ab mlloq wfbk7 $q if@eq 

9422 datap@efgkq allo ab hfbobk bk allo 

$q, pibrqbid>q+,$q pbfk tbbohifkhq 

+ + + 

9423 datakr lc kllfq+++olbm sird ab pib 
rqbi+,qb i»q+++ 

9424 datagb eb?q $j+ j»h a>q gb tbdhlj 
q+,lmbk ab mlloq+++jllf wl+ 

9425 datad> j»o lm $q if@eq >c+,gb ?bk 
q sofg+++slloilmfd+++,slloilmfd+++ 

942 6 dataafq fp ab i»qpqb hbbo a>q gb 
lkabo $k,qobfk ?bkq dbilmbk+ 

9427 datatbihlj qbord+++$h tfpq $q tbi+ 
++,$h tfpq $q tbi+++ 

** EINDE LISTING muzikale hel ** _ 
























Checksum Muzikale hel 


regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


Overlopertje 


De bedoeling van dit spel is om met het min(-) teken 
bij het vraagteken linksboven te komen. De moeilijk¬ 
heid is, dat als je de obstakels ziet, je niet kan bewe¬ 
gen. Je moet dan onthouden hoe je moet gaan. Na 
een tijdje verdwijnen de obstakels en kun je wel weer 
bewegen. Op dat moment dat je een obstakel raakt 
ben je af. Als je even niet meer weet hoe je moet lo¬ 
pen moet je even wachten, de obstakels worden dan 
weer zichtbaar. Al met al is dit een spelletje voor de 
lange winteravonden. De inzender is Alexander ter 
Haar uit Overasselt. 

10 print"[SHIFT-CLR] " 

20 goto540 

30 poke 53281,Orpoke 53280,0 

40 j=958 

50 for a=l to 400 

60 n=int(1000*rnd(0) ) 

70 poke 1024+n,81:poke 55296+n,2:next 

a 

71 for a=lto8:poke 1974+a,32:nexta:po 
ke 1065,63:poke 55337,13:gosub 740 

80 for a=lto8:poke 1065+a,32:nexta:po 

ke 1065,63:poke 55337,13:gosub 740 
90 ti$="000000" 

100 gosub 260 

110 poke 53281,2 

120 poke 1024+j,45:poke 55296+j,l 

130 for c=ltol00 


regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


p=peek(56320) 

poke 1024+j,32 

if p=126 thenj=j-40 

if p=125 then j=j+40 

if p=123 then j=j — 1 

if p=119 then j=j+l 

d=peek(1024 + j) 

if d=81 then goto 290 

if d=63 then goto 400 

poke 1024+j,45:poke 55296+j,l 

next c 

goto 100 

poke 53281,0 

for e=ltol500:next e 

return 

poke 53281,0:for l=lto700:nextl 
poke 54296,15:poke 54277,64:poke 5 
4273,162:poke 54272,37 
poke 54276,17 
poke 53281,1 

for j=lto65:k=int (15*rnd(l)) 

print "[COM-3][8xSPACE]game[SPACE] 

over":poke 53281,k:poke 53280,k 

next j:poke 54276,16 

for j=lto50:poke 53281,2 

print"[4xCRSR-DOWN][8xSPACE][CTRL- 

9]press[SPACE]space [CTRL-0] " 

get w$:ifw$=""then goto 380 

if w$<>""then goto 540 

for j=lto40:k=(15*rnd(1)):l=(15*rn 

d(l)) 

print"[12xSPACE][COM-3]gefelicitee 







rt" 


i 420 

poke 53281,k:poke 53280,1 

\ 430 

next j 

440 

if g$="[SPACE]"then run 

450 

poke 53281,1 

i 460 

for j=lto40 

470 

sc$=ti$ 

480 

: 

print"[SHIFT-CLR]":print"[6xCRSR-D 
OWN][6xCRSR-RIGHT][CTRL-3]gefelici 
teert" 

490 

print"[4xCRSR-DOWN][SPACE]je[SPACE 
]hebt[SPACE]er[SPACE]";sc$"[SPACE] 
sec.[SPACE]over[SPACE]gedaan" 

500 

print"[4xCRSR-DOWN][2xSPACE]wil[SP 
ACE]je[SPACE]nog[SPACE]een[SPACE]k 
eer?(j/n)" 

510 

get q$:if q$=""then goto 510 

520 

if q$="n"then end 

530 

goto 540 

540 

poke 53281,7:poke 53280,7:print"[S 
HIFT CLR][CTRL-1]" 

550 

print"[3xCRSR-DOWN][12xCRSR-RIGHT] 
overlopertje" 

560 

print"! 5xCRSR-DOWN]de[SPACE]bedoel 
ing[SPACE]van[SPACE]dit[SPACE]spel 
[SPACE]is[SPACE]om[SPACE]met" 

570 

print"het[SPACE]-[SPACE](min)[SPAC 
E]by[SPACE]het[SPACE]?[SPACE](vraa 
gteken)[6xSPACE]" 

580 

print"te[SPACE]komen" 

590 

print:print"het[SPACE]probleem[SPA 
CE]is[SPACE]dat[SPACE]je[SPACE]het 
[SPACE]-[SPACE]teken[SPACE]" 

600 

print"alleen[SPACE]kan[SPACE]beweg 
en[SPACE]als[SPACE]j e[SPACE]de[SPA 
CE]obstakels" 

610 

prinf'niet[SPACE]ziet" 

620 

prinf'als[SPACE]je[SPACE]ze[SPACE] 
we1[SPACE]ziet[SPACE]moet[SPACE]j e 
[SPACE]onthouden" 

630 

print"hoe[SPACE]je[SPACE]moet[SPAC 
E]gaan" 

640 

print:print"gebruik[SPACE]joystick 
[SPACE]poort[SPACE]2" 

650 

print"[4xCRSR-DOWN]duw[SPACE]een[S 
PACE]toets[SPACE]in[SPACE]om[SPACE 
]te[SPACE]starten" 

660 

get r$:if r$=""then goto 660 

670 

goto 680 

680 

print"[SHIFT-CLR]" 

690 

for a=0to39:poke 1024+a,81:poke 55 
296+a,2:nexta 

700 

for a=0to 940step 40:poke 1024+a, 
81:poke 55296+a,2:next a 

710 

for a=0to 920step 40:poke 1063+a, 
81:poke 55335+a,2:next a 

720 

for a=0to39:poke 1984+a,81:poke 56 
256+a,2:nexta 

730 

goto 30 

740 

poke 1066,32:poke 1067,32:poke 110 
6, 32 

750 

poke 1982,32:poke 1981,32:poke 198 
0,32:poke 1982,32 

760 

return 


** EINDE LISTING overlopertje ** 


Checksum Overlopertje 


regel 

10 

112 

regel 

390 

119 

regel 

20 

34 

regel 

400 

101 

regel 

30 

37 

regel 

410 

47 

regel 

40 

162 

regel 

420 

92 

regel 

50 

221 

regel 

430 

204 

regel 

60 

175 

regel 

440 

29 

regel 

70 

26 

regel 

450 

247 

regel 

71 

156 

regel 

460 

182 

regel 

80 

147 

regel 

470 

45 

regel 

90 

215 

regel 

480 

115 

regel 

100 

37 

regel 

490 

136 

regel 

110 

248 

regel 

500 

214 

regel 

120 

20 

regel 

510 

12 

regel 

130 

220 

regel 

520 

107 

regel 

140 

21 

regel 

530 

34 

regel 

150 

227 

regel 

540 

109 

regel 

160 

34 

regel 

550 

13 

regel 

170 

32 

regel 

560 

92 

regel 

180 

236 

regel 

570 

20 

regel 

190 

240 

regel 

580 

240 

regel 

200 

196 

regel 

590 

112 

regel 

210 

181 

regel 

600 

5 

regel 

220 

174 

regel 

610 

73 

regel 

230 

20 

regel 

620 

135 

regel 

240 

197 

regel 

630 

148 

regel 

250 

26 

regel 

640 

239 

regel 

260 

246 

regel 

650 

101 

regel 

270 

20 

regel 

660 

20 

regel 

280 

142 

regel 

670 

39 

regel 

290 

35 

regel 

680 

112 

regel 

300 

169 

regel 

690 

238 

regel 

310 

51 

regel 

700 

44 

regel 

320 

247 

regel 

710 

39 

regel 

330 

73 

regel 

720 

250 

regel 

340 

94 

regel 

730 

236 

regel 

350 

56 

regel 

740 

79 

regel 

360 

233 

regel 

750 

155 

regel 

370 

190 

regel 

760 

142 

regel 

380 

29 





Solitaire 


Solitaire is een spel wat de meeste van ons al ken¬ 
nen Toch is er nog een uitleg in het spel opgenomen. 
Ditmaal een wat uitgebreidere versie. De inzender is 
A. Stam uit Zwolle. 

10 poke53280,11:poke53281,11:poke646, 

1:gosub550 

20 poke646,11:print"[SHIFT-CLR]:a$= 

"[CTRL-9][COM-5][3xSPACE] [CTRL-0] " 
:b$="[CTRL-9][COM-8][3xSPACE][CTRL 
0]":dimx(8,8),z(8,8) 

30 forj=lto3:printspc(6)a$b$a$:next 

40 forj=lto3:printspc(6)b$a$b$:next 

50 forj=lto3:printa$b$a$b$a$b$a$:next 

60 forj=lto3:printb$a$b$a$b$a$b$:next 

70 forj=lto3:printa$b$a$b$a$b$a$:next 

80 forj=lto3:printspc(6)b$a$b$:next 

90 forj=lto3:printspc(6)a$b$a$:next 

100 x=1065:forj=lto7:fori=lto7:z(i,j)= 

209:x(i,j)=x:ifi=4andj=4thenz(i, j) 

=160 

110 pokex(i,j),z(i,j):ifi=7thenx=x+102 

:gotol30 
120 x=x+3 

130 next:next 

140 z(l,l)=0:z(2,l)=0:z(6, l)=0:z (7,1) = 

0:z(l,2)=0:z(2,2)=0:z(6,2)=0:z(7,2 
)=0 

150 z (1,6)=0:z(2,6)=0:z(6, 6)=0:z(7, 6) = 

0 : z (1,7) =0 : z (2, 7) =0 : z (6, 7) =0 : z (7,7 
)=0 


160 print"[HOME]":forj=lto7:printspc(2 


















170 


1)chr$(j+64):print:print:next:prin 
t"[CRSR-UP]" 

forj=lto7:printj;:next:print"[HOME 
]":poke646,7 

180 vl$="”:v2$="":a=0:b=0:c=0:d=0:prin 

tspc(23)"balletje[SPACE]op[SPACE]v 
eld:":printspc(23); 

190 getz$:ifz$=""thenl90 

195 ifz$="0"then480 

200 vl$=vl$+z$:printz$; :iflen (vl$)=2th 
enprintchr$(13):goto220 
210 gotol90 

220 a=asc(left$(vl$,1))-64:ifa<lora>7t 
hen450 

230 b=asc(right$(vl$,1))-48:ifb<lorb>7 
then450 

240 ifz(b,a)<>209then450 
250 printspc(23)"[CRSR-DOWN]moet[SPACE 
]naar[SPACE]veld:":printspc(23); 

260 getz$:ifz$="”then260 

270 v2$=v2$+z$:printz$;:iflen(v2$)=2th 

enprintchr$(13):goto290 
280 goto260 

290 c=asc(left$(v2$,1))-64:ifc<lorc>7t 
hen450 

300 d=asc(right$(v2$,1))-48:ifd<lord>7 
then450 

310 ifz(d,c)<>160then450 
320 ifb=danda-c=2orc-a=2thengosub380:g 
oto350 

330 ifc=aandb-d=2ord-b=2thengosub410:g 

oto350 

340 goto450 

350 z (b, a) =160 :pokex (b, a) , z (b, a) : z (d, c 
)=209:pokex(d,c),z(d, c) 

360 z (g, f)=160 tpokex(g,f),z(g,f) :g=0:f 
=0:t=t+l:ift=31then470 
370 goto460 

380 ifa-c=2thenf=a-l:g=b:goto400 
390 f=c-l:g=b 
400 goto430 

410 ifb-d=2theng=b-l:f=a:goto430 

420 g=d-l:f=a 

430 ifz(g,f)<>209then450 

440 return 

450 printspc(23)"[CRSR-DOWN][CTRL-9][S 
PACE]kan[SPACE]niet![SPACE]”:forj= 
lto2000:next 

460 print"[HOME]";:forj=lto20:printspc 
(23)"[16xSPACE]”:next:print"[HOME] 

":gotol80 

470 ifz (4,4)=209then490 

480 print:printspc(23)"[CRSR-DOWN]jamm 
er!":goto500 

490 printspc(23)"[CTRL-9][CRSR-DOWN]ge 
lukt! [CTRL-0 ]" 

500 printspc(23)”[CRSR-DOWN]nog[SPACE] 
een[SPACE]keer?":printspc (23)” ( j/n 
) " 

510 getz$:ifz$=""then510 

520 ifz$="j"thenclr:restore:print"[SHI 

FT CLR]";:goto20 
530 ifz$="n"thenend 

540 goto510 

550 printchr$(14);"[SHIFT-CLR][3xCRSR- 
DOWN][7XCRSR-RIGHT]S[2xSHIFT-SPACE 
]0[2xSHIFT-SPACE]L[2xSHIFT-SPACE]I 
[2xSHIFT-SPACE]T[2xSHIFT-SPACE]A[2 
xSHIFT-SPACE]I[2xSHIFT-SPACE]R[2xS 
HIFT SPACE]E" 

560 print"[5xCRSR-DOWN][15xCRSR-RIGHT] 


d[SPACE]o[SPACE]o[SPACE]rprint”[ 
3xCRSR-DOWN][llxCRSR-RIGHT]B[SPACE 
]e[SPACE]r[SPACE]t[3xSPACE]S[SPACE 
]t[SPACE]a[SPACE]m" 

570 print"[7xCRSR-DOWN]Anemoonstraat[S 
PACE]27":print"8012[SPACE]xv[SPACE 
]Zwolle" 

580 forj=lto4000:next:print"(SHIFT-CLR 

]" 

590 printchr$ (14);"[2xCRSR-DOWN]SOLITA 

IRE[SHIFT-SPACE]is[SPACE]een[SPACE 
]bekend[SPACE]spel." 

600 print"Hoe[SPACE]het[SPACE]te[SPACE 
]spelen?[SPACE]" 

610 prinf'Er[SPACE]verschijnt[SPACE]st 
raks[SPACE]een[SPACE]kruisvorm[SPA 
CE]van" 

620 prinfeen [SPACE] schaakbord. [SPACE] 
De[SPACE]velden[SPACE]zijn[SPACE]g 
evuld" 

630 print"met[SPACE]balletjes,[SPACE]b 

ehalve[SPACE]de[SPACE]middelste." 

640 print"Het[SPACE]is[SPACE]nu[SPACE] 

de[SPACE]bedoeling[SPACE]dat[SPACE 
]u[SPACE]met[SPACE]een" 

650 prinfballet je [SPACE] over [SPACE] ee 
n[SPACE]ander[SPACE]ballet je[SPACE 
]naar[SPACE]" 

660 prinfeen [SPACE] leeg [SPACE] hok je [S 
PACE] ' springt'.[SPACE]Alleen[SPACE 
]hori-" 

670 print"zontaai[SPACE]en[SPACE]verti 
caal[SPACE]is[SPACE]mogelijk." 

680 prinfHet [SPACE] ' geslagen' [SPACE]b 
alletje[SPACE]wordt[SPACE]weggeno- 

ll 

690 print"men.[SPACE]Probeert[SPACE]u[ 
SPACE]op[SPACE]deze[SPACE]manier[S 
PACE]alle" 

700 prinfballet jes [SPACE] weg [SPACE] te 

[SPACE]werken[SPACE]zodat[SPACE]er 
[SPACE]1[SPACE]over" 

710 print"blijft,[SPACE]die[SPACE]dan[ 
SPACE]wel[SPACE]in[SPACE]het[SPACE 
]midden[SPACE]moet" 

720 print"uitkomen." 

730 prinfHet [SPACE] spel [SPACE] is [SPAC 
E]in[SPACE]31[SPACE]zetten[SPACE]t 
e[SPACE]spelen.":gosub800 

740 print"[SHIFT-CLR][3xCRSR-DOWN]Komt 
[SPACE]u[SPACE]vast[SPACE]te[SPACE 
]zitten[SPACE]of[SPACE]denkt[SPACE 
]u[SPACE]dat[SPACE]u[SPACE]" 

750 print"het[SPACE]verkeerd[SPACE]doe 

t, [SPACE]toet s[SPACE]dan[SPACE]het 
[SPACE]cijfer" 

760 print"'0'[SPACE]in.[SPACE]U[SPACE] 
kunt[SPACE]het[SPACE]spe1[SPACE]da 
n[SPACE]over[SPACE]doen." 

770 print"De[SPACE]velden[SPACE]zijn[S 

PACE]aangegeven[SPACE]door[SPACE]m 
iddel" 

780 print”van[SPACE]cijfers[SPACE]en[S 

PACE]letters,[SPACE]zoals[SPACE]bi 
j[SPACE]het" 

790 print"schaken.":goto840 

800 print"[CRSR-DOWN][lOxCRSR-RIGHT][C 
TRL 9][SPACE]Druk[SPACE]RETURN[SPA 
CE] " 

810 getz$:ifz$=""then810 

820 ifz$=chr$(13)thenreturn 



















830 goto810 

840 print"Om[SPACE]een[SPACE]veld[SPAC 
E]aan[SPACE]te[SPACE]geven[SPACE]m 
oet[SPACE]u[SPACE]eerst" 

850 print"de[SPACE]letter[SPACE]intoet 
sen[SPACE]en[SPACE]daarna[SPACE]he 
t[SPACE]cij-" 

860 print"fer.[SPACE](De[SPACE]returnt 

oets[SPACE]hoeft[SPACE]u[SPACE]nie 
t[SPACE]te" 

870 print"gebruiken.)[SPACE]De[SPACE]c 

omputer[SPACE]doet[SPACE]de[SPACE] 
rest." 

880 print"[CRSR-DOWN]Succes!":gosub800 
:printchr$(142);:return 

** EINDE LISTING solitaire ** 


Checksum Solitaire 


regel 

10 

184 

regel 

440 

142 

regel 

19 

113 

regel 

450 

105 

regel 

20- 

20 Q 

regel 

460 

166 

regel 

3-0 

73 

regel 

470 

91 

regel 

40 

74 

regel 

480 

42 

regel 

50 

218 

regel 

490 

179 

regel 

60 

219 

regel 

500 

167 

regel 

70 

218 

regel 

51Ó : 

149 

regel 

80 

74 

regel 

520 

92 

regel 

90 

73 

regel 

530 

116 

regel 

10.0. 

37 

regel 

540 

31 

regel 

110' 

41 

regel 

550 

82 

regel 

120 

63 

regel 

560 

4 

regel 

130 

62 

regel 

570 

6 

regel 

140 

138 

regel 

580 

124 

regel 

150 

178 

regel 

590 

2 

regel 

160 

56 

regel 

600 

185 

regel 

170 

155 

regel 

610 

91 

regel 

180 

203 

regel 

620 

126 

regel 

1.90 

153 

regel 

630 

206 

regel 

195 

114 

regel 

640 

123 

regel 

200 

55 

regel 

650 

3 

regel 

21Q 

35 

regel 

660 

118 

regel 

220 

67 

regel 

670 

64 

regel 

230 

73 

regel 

680 

222 

regel 

240 

36 

regel 

6 90 

196 

regel 

250 ■ 

32 

regel 

700 

65 

regel 

2 60 

151 

regel 

7.10 

175 

regel 

270 

65 

regel 

720 

119 

regel 

280 

33 

regel 

730 

208 

regel 

290 

74 

regel 

74Q 

246 

regel 

300 

80 

regel 

750 

1.0.0 

regel 

310 

36 

regel 

760 

175 

regel 

32 0, 

114 

regel 

770 

147 

regel 

330 

110 

regel 

780 

233 

regel 

340 

34 

regel 

7 90 

103 

regel 

35Q 

238 

regel 

80.0 

184 

regel 

360 

21 

regel 

810 

.152 

regel 

37 Q 

35 

regel 

820 

108 

regel 

380 

38 

regel 

830 

34 

regel 

3.90 

140 

regel 

840 

231 

regel 

400 

32 

regel 

850 

13 

regel 

410 

43 

regel 

860 

28 

regel 

420 

140 

regel 

870- 

105 

regel 

430 

46 

regel 

880 

5 


Trimula. 


Uit Den Haag komt onze volgende inzender Laurenz 
van Kooy. De naam van het spel is Trimula. Trimula 
is een 3-dimensionaal spel dat met 2 spelers ge¬ 
speeld wordt. Het is de bedoeling om zoveel mogelij- 
ke rijtjes van drie te maken. Het is niet toegestaan 
om het middelste vakje te kiezen als er nog geen rij¬ 


tje gemaakt is. Speler 1 begint maar speler 2 mag de 
laatste twee vakjes hebben. Veel succes !! 

1 rem *** trimula 

2 rem *** door 

3 rem *** laurens van kooy 

100 print"[SHIFT-CLR][CTRL-H]"; 

110 mr=49152:forz=0to61:readd:pokemr+z 

, d:next:sysmr:g=4 9250 
120 deffnps(ps)=9*fna(ps)-240*int((ps- 
9*int(ps/9))/3)+156*int(ps/9) 

130 deffna(ps)=ps-9*int(ps/9)-3*int((p 

s-9*int(ps/9))/3) 

140 poke53280,0:poke53281,0:poke54296, 

15 

150 dimr(26),ve(26),pl(26) ,a(13) ,b(13) 
,o(13) 

160 forx=0to26:r(x)=fnps(x):next 
170 cl(1)=2:cl(2)=6:cl(3)=5 
180 mp=55296+10+13*40:np=l024+10+13*40 

:tl=15 

190 forz=lto4:readme$(z):next 
200 m$="@abcdefgh@cfadgbeh@dhbdfijklmn 

opqilojmpknqimqkmorstuvwxyzruxsvyt 

HZ " 

210 m$=m$ + "rvztvx@irajsbkt@ jtbjrcludmv 

enwcmwemufoxgpyhqzfpzhpx@lx" 

220 m$=m$+"flramygmsbnzhnt@mzbmxfmthmr 

230 fory=0to48 

240 if(y+1)/8=int((y+1)/8)thenreadd$:p 
rintd$ 

250 forz=0to2 

260 pokeg+y*3+z,asc(mid$(m$,y*3+z+l, 1) 

) -64 

270 nextz:sysmr+49:nexty 
280 pos17,9;"[CTRL-6]door:":pos11,11"[ 
CTRL-8]laurens[SPACE]van[SPACE]koo 
y.":posl6,13;"[COM-8] (c)1988" 

290 pos7,24;"[CTRL-4]uitleg/spelregels 
[SPACE]?[SPACE](j/n)[HOME]" 

300 sysmr+49:forx=lto80:next 
310 geta$:ifa$="n"then420 
320 ifa$<>"j"then300 

330 rem *** spel regels *** 

340 print"[SHIFT-CLR][CTRL-8][SPACE]tr 

imula" :print" [SPACE]-" 

350 print"[CRSR-DOWN][CTRL-6]trimula[S 
PACE]is[SPACE]een[SPACE]3-d[SPACE] 
spel[SPACE]dat[SPACE]met[SPACE]twe 
e[4xSPACE]spelers[SPACE]gespeeld[S 
PACE]wordt." 

360 print"[CRSR-DOWN][COM-6]het[SPACE] 
is[SPACE]de[SPACE]bedoeling[SPACE] 
om[SPACE]zoveel[SPACE]mogelijk[2xS 
PACE]rijtjes[SPACE]van[SPACE]drie[ 
SPACE]te[SPACE]maken." 

370 print"[CRSR-DOWN][COM-7]het[SPACE] 
is[SPACE]niet[SPACE]toegestaan[SPA 
CE]om[SPACE]het[SPACE]middelste[SP 
ACE]vakje[SPACE]te[SPACE]kiezen[SP 
ACE]als[SPACE]er[SPACE]"; 

380 prinf'nog[SPACE]geen[SPACE]rijtje[ 
2xSPACE]gemaakt[SPACE]is." 

390 print"[CRSR-DOWN][CTRL-5]speler[SP 
ACE]1[SPACE]begint[SPACE]maar[SPAC 
E]speler[SPACE]2[SPACE]mag[SPACE]d 
e[4xSPACE]twee[SPACE]laatste[SPACE 
]vakjes[SPACE]"; 

400 print"hebben." 

410 pos32,24;" [CTRL-4]toets»[HOME]":m 


















760 


e=5:gosubl320:poke 198,0:waitl98,1 
420 print"[SHIFT-CLR][CTRL-8][2xCRSR-D 
OWN] «return» [ SPACE ] voor [ SPACE] ee 
n[SPACE]computer[SPACE]speler[CRSR 
-DOWN]" 

430 forx=lto2:print"[CTRL-2]naam[SPACE 
]speler"x"?"; 

440 cr$=chr$(13):dl$=chr$(20):1=0 
450 c=c+l:ifc<10thenprint"[COM-@][CRSR 
-LEFT]";:goto480 

460 ifc<20thenprint"[SPACE][CRSR-LEFT] 

";:goto480 
470 c=0 

480 geta$ : if (a$<"a"ora$>"z ") anda$Ocr$ 
anda$Odl$then450 
490 c=0:ifa$=cr$then530 

500 ifa$Odl$andl<10thenl=l+l: na$ (x) =n 

a$(x)+a$:printa$;:goto450 
510 ifa$=dl$andl>0thenna$ (x)=left$(na$ 
(x),1-1):1=1-1:printa$;:goto450 
520 goto480 

530 print"[SPACE][CRSR-LEFT] 

540 ifna$(x)=""thenna$(x)="computer":p 
rintna$(x); 

550 print:next:print"[2xCRSR-DOWN]" 

560 forx=lto2:print"[CTRL-2]"na$(x) ; ta 
b(10)"="mid$("[CTRL-3]rood[SPACE][ 
CTRL-7]blauw" , x*6-5,6) 

570 na$(x)=mid$("[CTRL-3][CTRL-7]",x,1 
)+na$(x):next 

580 pos32,24;"[CTRL-4]toets»[HOME]":p 
okel98,0:waitl98,1 

590 h$="[SPACE]CCCCCCCC[SPACE]":v$="[S 

PACE][CRSR-UP][CRSR-LEFT]B[CRSR-UP 
][CRSR-LEFT]B[CRSR-UP][CRSR-LEFT]B 
[CRSR-UP][CRSR-LEFT]B[CRSR-UP][CRS 
R-LEFT]B[CRSR-UP][CRSR-LEFT][SPACE 
]":s$="[SPACE][CRSR-DOWN][2xCRSR-L 
EFT]N[CRSR-DOWN][2xCRSR-LEFT]N[CRS 
R-DOWN][2xCRSR-LEFT]N[CRSR-DOWN][2 
xCRSR-LEFT][SPACE]" 

600 print"[SHIFT-CLR][COM-4]forz=lto 
8:readx,y 

610 posx,y;h$:posx,y;v$:posx,y;s$:posx 
,y-6;h$:posx+9,y;v$:posx+9, y;s$ 

620 posx,y-6;s$:posx+9, y-6; s$ 
i 630 posx-4,y+4;h$:posx-4,y+4;v$:posx-4 

,y-2;h$:posx+5,y+4;v$:nextz 
| 640 pos27,17;"[COM-7]N[10xCOM-T]M":for 
x=lto2:printtab(27)"[COM-G]"na$(x) 
tab(38)"[COM-7][COM-M]" 

| 650 printtab(27)"[COM-7][COM-G][CTRL-8 
]score:[2xSPACE][CTRL-2]0[SPACE][C 
OM 7][COM-M]nextx:printtab(27)"M 
[10xCOM-'S ] N" ; 

| 660 print"[HOME][CTRL-4]speler:-[COM-G 

]":print"ronde:—[COM-G]":print"[8 
xCOM-T]" 

S 670 forx=0to2 6:r=fnps(x) :pokemp+r,14:p 
okenp+r,x:nextx 
I 680 rem *** spel *** 

690 ro=ro+l:forx=lto2:posO,24;na$(x)"[ 

SPACE]?[llxSPACE]"; 

| 700 pokel031,48+x:pos6,1;"[CTRL-4]"rig 

ht$ (str$(ro),2) 

I 710 ifve<25then750 

720 fork=0to26:ifve(k)=0then870 

I 730 nextk 

| 740 gotolOOO 

I 750 pokel98,0:cu=1024+24*40+len(na$(x) 

)+2:ti$="000000" 


ifmid$(na$(x),2,8)="computer"thenl 
090 

770 f ory=ltol00 :ifc<>100thenc=100:goto 

790 

780 c=32 

790 pokecu,c:geta$:ifa$=""then770 
800 k=asc(a$)-64:ifk<0ork>26then770 
810 pokecu,k 

820 posl5,0"[CTRL-6][CTRL-9][SPACE]ret 
urn[SPACE] [CTRL-0] ":f ory=ltol00 :ne 
xt:posl5,0"[SPACE]return[SPACE]" 

830 geta$ : ifa$Ochr$ (13) anda$Ochr$ (20 
)then820 

840 posl5,0"[8xSPACE]":ifa$=chr$(20)th 

en770 

850 ifve(k)<>0thenme=2:gosubl320:goto7 
70 

8 60 ifk=13andm=0andve<2 6thenme=3:gosub 

1320:goto770 
870 ve(k)=x:ve=ve+l 

880 r=fnps(k):pokenp+r,81:pokemp+r,cl( 
x) 

890 fory=0to48 

900 p0=peek (g+y*3):pl=peek(g+y*3+l):p2 
=peek(g+y*3+2) 

910 ifp0okandpl<>kandp2okthen970 
920 ifve (p0) Ove (pl) orve (pl) Ove (p2) or 
ve (p0) Ove (p2) then970 
930 m=l:pu(x)=pu(x)+1:pos35,17+2*x;"[C 
TRL 2]"pu(x) 

940 forz=cl(x)to32+cl(x):fori=0to2 
950 pokemp+r(peek(g+y*3+i)), z 
960 nexti,z 

970 nexty:ifve=26then710 

980 nextx:goto690 

990 rem *** einde spel *** 

1000 posO,24;"[15xSPACE]"; 

1010 ifpu(1)>=pu(2)thenp(1)=1 
1020 ifpu(2)>=pu(1)thenp(2)=1 
1030 me=4 : gosubl320 : kl=l 
1040 forx=lto2:ifp(x)=0thenl060 
1050 poke646,kl:pos28,(x*2)+16;mid$(na$ 
(x),2,10):geta$:ifa$<>""thenrun 
1060 nextx:kl=kl+l:ifkl>255thenl030 
1070 gotol040 

1080 rem *** computer zet *** 

1090 t=l: ifm=0thent= .45 
1100 k=0:fory=0to48:geta$ 

1110 a=peek(g+3*y):b=peek(g+3*y+l):c=pe 
ek(g+3*y+2) 

1120 va=ve(a):vb=ve(b):vc=ve(c) 

1130 ifva<>0andvbO0andvcO0thenl250 
114 0 ifvaOOorvbOOorvc<>Othenll60 
1150 pl (a)=pl(a) + .1:pl(b)=pl(b) + .l:pl(c 
)=pl(c)+.1:gotol250 

1160 ifva=vbandva=xthenpl(c)=pl(c)+t:go 
tol250 

1170 ifva=vcandvc=xthenpl(b)=pl(b)+t:go 
tol250 

1180 ifvb=vcandvb=xthenpl(a)=pl(a)+t:go 
tol250 

1190 ifva=vbandva<>0andvaOxthenpl (c)=p 
1(c)+.9:goto1250 

1200 ifva=vcandva<>0andvcOxthenpl (b) =p 

1(b)+.9:gotol250 

1210 ifvb=vcandvb<>0andvbOxthenpl (a) =p 
1(a)+.9:gotol250 

1220 ifva=xandvb=0andvc=0thenpl (b)=pl(b 
)+.4:pl(c)=pl(c)+.4:gotol250 
1230 ifvb=xandva=0andvc=0thenpl (a)=pl (a 
)+.4:pl(c)=pl(c)+.4:gotol250 
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1240 ifvc=xandva=0andvb=0thenpl (a)=pl(a 
)+.4:pl(b)=pl(b)+.4 
1250 nexty:z=0:r=0 

1260 fory=0to2 6:ify=13andm=0andve<26the 
nnext 

1270 ifpl(y)>randve(y) =0thenk=y :r=pl(y) 

: z=l 

1280 ifpl(y)=rthenifrnd(0)<.2thenk=y:r= 

pi (y) 

1290 pl(y)=0:next:ifz=lthenl310 
1300 k=int(rnd(l)*27):if(ve(k)<>0)or(k= 
13andm=0andve<26)thenl300 
1310 pokecu,k:goto870 
1320 rem *** mededelingen *** 

1330 posl5, 0;me$ (me) 

134 0 poke54277,3*16+10:poke54276,00*16+ 

00 

1350 poke54273,137:poke54272,43:poke542 

76,17: fory=ltol000 :nexty 
1360 poke54276,0:pos15,0"[14xSPACE]":re 

turn 

1370 datal69,11,141,8,3,169,192,141,9,3 
,96,32,115,0,201,185 

1380 data240,6, 32 , 121 ,0,76,231,167,32,1 
15,0,32,158,183,134 

1390 data211,32,241,183,134,214, 32,108, 
229,32,121,0,32,162,170,76,174,167 
1400 datal65,255,162,240, 157,255,215,20 
2,208,250,198,255,96 

1410 data"","[CTRL-8]al[SPACE]bezet!!", 

"[COM-1]mag[SPACE]nog[SPACE]niet!! 
" , "[CTRL-6]druk[SPACE]een[SPACE]to 
ets" 

1420 data "[2xSPACE]ttttt[SPACE]rrr[2xS 
PACE]iii[SPACE]m[3xSPACE]m[SPACE]u 
[3xSPACE]u[SPACE]1[4xSPACE]aa" 

1430 data "[4xSPACE]t[3xSPACE]r[2xSPACE 
]r[2XSPACE]i[2xSPACE]mm[SPACE]mm[S 
PACE]u[3xSPACE]u[SPACE]1[3xSPACE]a 
[2xSPACE]a" 

1440 data "[4xSPACE]t[3xSPACE]rrr[3xSPA 
CE]i[2xSPACE]m[SPACE]m[SPACE]m[SPA 
CE]u[3xSPACE]u[SPACE]1[3xSPACE]aaa 


1450 data " [4xSPACE]t[3xSPACE]r[SPACE]r 
[3xSPACE]i[2xSPACE]m[3xSPACE]m[SPA 
CE]u[3xSPACE]u[SPACE]1[3xSPACE]a[2 
xSPACE]a" 

1460 data "[4xSPACE]t[3xSPACE]r[2xSPACE 
]r[SPACE]iii[SPACE]m[3xSPACE]m[2xS 
PACE]uuu[2xSPACE]111[SPACE]a[2xSPA 
CE] a" 

1470 data "[SPACE]- 


1480 
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regel 950 
regel 960 
regel 970 
regel 980 
regel 990 
regel 1000 
regel 1010 
regel 1020 
regel 1030 
regel 1040 
regel 1050 
regel 1060 
regel 1070 
regel 1080 
regel 1090 
regel 1100 
regel 1110 
regel 1120 
regel 1130 
regel 1140 
regel 1150 
regel 1160 
regel 1170 
regel 1180 
regel 1190 
regel 1200 
regel 1210 
regel 1220 
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Basic op de 128 


Een letter printen 

Om een letter op uw scherm te krijgen 
moet er nog wel het een en ander ge¬ 
beuren. Vanuit BASIC kunt u met 
PRINT gegevens afdrukken. Om tekst 
te kunnen printen dient u gebruik te 
maken van de QUOTE karakters. U 
kunt dit karakter op uw scherm krijgen 
door ‘SHIFT-2’ in te drukken. Het on¬ 
derstaande laat zien hoe dit er dan 
komt uit te zien: 

10 PRINT'Hallo daar" 

Dus de tekst, tussen de dubbele haak¬ 
jes, wordt op het beeldscherm weer¬ 
gegeven. De KERNAL van de compu¬ 
ter zorgt er voor dat de tekst in RAM 
wordt geschreven, en de hardware 
zorgt ervoor dat het wordt weergege¬ 
ven. De KERNAL is dus niet meer, en 
ook niet minder, dan een ‘gewone’ 
EPROM die is gevuld met een door de 
programmeur geschreven program¬ 
ma. En zoals het BASIC commando 
PRINT zijn er natuurlijk nog veel meer 
commando's in deze KERNAL ver¬ 
werkt. 

Wat gebeurt er verder? 

Nadat u de bovenstaande regel heeft 
ingetikt, en daarna een RETURN, 
gaat de KERNAL aan het werk. Eerst 
wordt het commando PRINT ‘getoke- 
nized’. Gewat? Het wordt gewoon wat 
compacter in het geheugen van de 
computer opgeslagen! Dat is alles, in 
vogelvlucht dan. Uw ingevoerde op¬ 
dracht wordt dus eerst vertaald, en 
wanneer nu blijkt dat er een STATE¬ 
MENT tussen zit dat de computer niet 
begrijpt krijgt u een melding op uw 
scherm. Die melding luidt: 

7SYNTAX ERROR 

ready 

De computer snapt er geen bal van, 
daar komt het op neer. U heeft dus 
een typfout gemaakt. Typ het onder¬ 
staande voorbeeld maar eens in: 

10 PRIND"hallo daar" 

U kreeg direct een foutmelding, en 
geen wonder, want print moet met een 
T' worden geschreven. Probeer dat 
ook maar eens en u zult zien dat het 
dan wel werkt. Bij een foutmelding zet 



de computer de ingetikte Basic-regel volgt hier een kleine demo. Tik eerst 

NIET in het geheugen. En wanneer u het onderstaande maar eens in: 

nu alles goed heeft ingevoerd komt 

het wel in het geheugen te staan. Kijk M OlcOl [RETURN] 

maar eens met behulp van de monitor 

op $01c01 en verder. En omdat niet En daarna tikt u de volgende getallen 
iedereen met de monitor kan werken over de eerste rij met ‘nullen’ en dat 
volgt hier de juiste opdracht om vanuit zou er dan zo uit moeten zien: 

Basic in de monitor te komen: 

OlcOl 13 1c 0a 00 99 22 48 41 4c 4c 
MONITOR [RETURN] 4f 20 44 41 41 52 22 00 

Als u geen typfouten gemaakt heeft, Wanneer u nu alles heeft ingetikt gaan 
zit u nu in de monitor. Het gemak van we de monitor weer verlaten. Daar- 
de Cl 28 is dat er een, vrij goede, mo- voor tikken we het onderstaande in: 
nitor direct beschikbaar is. Nadat u in 
de monitor bent aangekomen tikt u X [RETURN] 

‘gewoon’ het volgende in: 

En om te kijken wat er nu is precies is 
M OlcOl 01c40 [RETURN] gebeurd drukt u op F7 ‘list’ en er staat 

10 PRINT"hallo daar" We kunnen nu 
U ziet nu een paar regels onder elkaar het ingetikte in de monitor weer zicht- 
staan. Wanneer u voordat u in de mo- baar met: 
nitor bent aangekomen met een pro¬ 
gramma heeft zitten werken, ziet u nu M OlcOl [RETURN] 
wat ‘rotzooi’ staan. Daarom volgt hier 

de WIS opdracht voor het gehele ge- Maar wat is dat nu voor een brei? daar 
heugen, bankO! staat helemaal geen 10 PRINT"hallo 

daar". Dat is nu precies het geheim- 
F OICOO Ofeff 00 [RETURN] zinnige TOKENIZING van de KERN¬ 

AL. Nu is het immers wat compacter 
Hierdoor wordt het gehele geheugen opgeslagen in het geheugen! PRINT 
met 00 opgevuld. Alles is nu dus lek- wordt nu door de waarde $99, en dat 
ker schoon, tenminste als de compu- is decimaal 153, weergegeven, $99 is 
ter nog wel deugt! En om ons voor- dus het TOKEN van het BASIC com- 

beeld van zojuist krachtig te maken mando PRINT! Elk commando heeft 
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zo zijn eigen TOKEN. Wanneer er nu 
gewoon PRINT in het geheugen zou 
komen te staan zou het geheugen van 
de computer al snel te klein worden 
voor een programma! PRINT is im¬ 
mers 5 letters, en wordt nu door 
slechts 1 cijfer weergegeven. Maar er 
zijn ook TOKENS die met 2 cijfers 
worden uitgedrukt. Waarom, omdat er 
te veel zijn om met 1 cijfer te kunnen 
uitdrukken. Bij de C64 kon dat nog wel 
maar de BASIC van de Cl 28 is nogal 
wat luxer dan de C64 BASIC. En van¬ 
daar dat er dus ook meer TOKENS in 
de lijst staan. Ook hebben deze TO¬ 
KENS dus een bepaalde afkorting. 
Voor PRINT is dat ‘?’ U kunt deze hele 
waslijst vinden in de handleiding van 
uw computer. Bij onze handleiding 
staat deze lijst in APPENDIX K 

De ‘keyword’ lijst 

De keyword-lijst kunt u in bank 15 vin¬ 
den, en wel vanaf $4417 tot en met 
$46fb. In deze lijst staan alle Basic- 
opdrachten, die u kunt gebruiken, ver¬ 
kort weergegeven. Daarbij staan ook 
een paar niet bruikbare, maar daar¬ 
over later meer. Wanneer u deze lijst 
heeft bekeken weet u precies welke 
commando’s er bruikbaar zijn. Enkele 
niet bruikbare opdrachten zullen wij 
verderop in dit artikel bespreken. 

HEX notatie 

Alle in de monitor zichtbare getallen 
worden in HEX weergegeven. En dat 
is misschien wel even wennen. Deze 
‘tabel’ ziet er als volgt uit: 0 tot en met 
9 is gewoon hetzelfde! maar 10 tot en 
met 15 ziet er wat anders uit, namelijk 
als volgt: 10 is $0a, 11 is $0b, 12 is 
$0c, 13 is $0d, 14 is $0e en 15 is $0f 
Heel simpel achteraf gezien, zo den¬ 
ken wij er tenminste over. Dus in de 
monitor lijkt het soms wel wat vreemd 
maar het staat er toch echt. U kunt ge¬ 
rust wat verschillende testjes maken, 
want dat is wel zo handig. Dus alles 
wat we intikken wordt eerst ‘bekeken’ 
op fouten, en dan uitgevoerd. Er zit 
geen woordenboek in de computer, al¬ 
leen de BASIC commando’s staan in 
de lijst. Alles wat u tussen die haakjes 
heeft ingetikt dient u zelf te controle¬ 
ren op juistheid. Er blijft voor ‘sommi¬ 
ge personen’ dus nog wel het een en 
ander te doen. 

En hoe verder? 

We hebben nu dus als eerste regel: 10 
PRINT"hallo daar" in de computer ge¬ 
plaatst. Maar wat gebeurt er dan bij 
een volgende regel? Zullen we samen 
weer eens op onderzoek? Tik maar 


weer ‘MONITOR’ in gevolgd door een 
RETURN. Vervolgens: ‘M OlcOT ge¬ 
volgd door een RETURN. En zo heb¬ 
ben we weer zicht op de eerder door 
ons ingevoerde BASIC-regel. Het vol¬ 
gende is zeer belangrijk voor de twee¬ 
de BASIC regel! U ziet ongeveer het 
volgende op uw scherm: 

OlcOl 131c 0a 00 enz, enz 

De eerste 2 bytes zijn de ‘LINK’ naar 
de volgende regel! Daarover straks 
meer. De volgende 2 bytes staan voor 
het regelnummer! De overige bytes 
zijn uw ingevoerde basicregel. Als 
laatste staat er drie maal 00. Dit geeft 
het einde van de regel aan! Elke regel 
wordt dus afgesloten met drie maal 
00. Wanneer er nu geen regel meer 
wordt ingetikt blijven die drie 00 er 
staan om aan te geven dat dit het pro- 
gramma-einde is! Wordt er nog een 
regel ingetikt dan blijft hier alleen de 
eerste 00 van staan, en vervolgens 
wordt de nieuwe LINK naar het einde 
van de regel gezet. Dit kan zich einde¬ 
loos herhalen totdat uw geheugen vol 
zit! Een regel sluit dus met 00 en een 
programma met 00 00 00. Maar om¬ 
dat de computer niet van te voren kan 
weten hoeveel regels u wilt invoeren, 


zet ‘hij’ er gewoon telkens 00 00 00 
neer. En de computer laat daarvan al¬ 
leen de eerste 00 staan, wanneer u 
weer een regel invoert Dus 13 1c 
staat voor $1 cl3! En wanneer we 
daar kijken staat daar inderdaad nog 
00 00. Daar moet dus de volgende re¬ 
gel komen te staan. En probeer het 
maar eens uit, want werken doet het 
perfect. Ook niet zo gek want anders 
hadden we mooi een ‘rotte’ computer 
in huis staan! 

Regelnummers 

Regelnummers zijn positieve getallen 
van 0 tot en met 63999. Hoger kan 
dus niet, maar 63999 wordt HEX 
weergegeven door $ff $f9, dat is toch 


geen 65535? Zeker weten van niet! 
Let maar eens goed op! De Basic IN- 
TERPRETER kan geen regelnum¬ 
mers aan die hoger zijn dan 63999, 
maar daar is wel wat op te vinden 
hoor! We gaan gewoon met renumber 
de regels ‘renummen’, want die kan 
het wel gewoon aan! Of we gaan van¬ 
uit de monitor de byte’s’ veranderen 
die voor het regelnummer verant¬ 
woordelijk zijn! He he dat werkt dus 
ook weer als ‘een stekker’! Weer wat 
wijzer nietwaar?! 

Regelloper 

Door nu de laatste LINK naar de eer¬ 
ste te laten wijzen krijgt u het effect dat 
de LISTING door blijft lopen. Probeer 
dat maar eens en u zult versteld 
staan. Wat heb ik daar nu aan? Nu ja 
wat dacht u van die smerige ‘door¬ 
loop’ directory’s? Ja juist, dat werkt 
volgens het zelfde principe! Dus voor 
de heldere geest onder ons, er valt 
meer uit uw computer te halen dan u 
denkt. Hoe vaak horen wij niet:"Hoe 
zou dat toch werken?" Maar al te 
vaak, en vandaar ook deze toelich¬ 
ting. 


Vrij geheugen 

Hoe meer regelnummers des te meer 
geheugen reserveert de computer 
voor deze 2 byte’s. En nog even dit 
voor RICHARD van SOEST!!!! NEE 
het maakt absoluut niet uit of je nu re¬ 
gelnummer 1 of 63999 gebruikt hoor! 
Er worden altijd twee byte’s voor ge¬ 
bruikt. Bij regelnummer 1 staat er 01 
00 en bij regelnummer 63999 staat er 
immers ff f9! 

Regels wissen 

Met de basic opdracht DELETE kunt 
u regels wissen. Maar wanneer u re¬ 
gelnummers boven 63999 gebruikt, 
werkt het commando DELETE niet 
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meer! U zou dit voor veiligheid kunnen 
gebruiken. Ook zijn er tal van TOOLS 
die er voor zorgen dat u de regel niet 
te zien krijgt of alleen de regelnum¬ 
mers te zien krijgt. Vaak doet de pro¬ 
grammeur dit om te voorkomen dat U 
er met uw tengels aan gaat zitten rot¬ 
zooien. Simpel is het in ieder geval, u 
kunt met behulp van de nu opgedane 
kennis dergelijke KIDS rustig gaan zit¬ 
ten slopen. Dus krijgt u een dergelijk 
zelfgemaakt programma in uw han¬ 
den, of heeft u er misschien al eentje, 
dan kunt u nu met een gerust hart de 
sloophamer in de hand nemen. 

In het kort 

In het kort komt het er dus op neer dat: 
1: elk basic commando verkort wordt 
opgeslagen in het geheugen van de 
computer. 2: elk token zijn eigen waar¬ 
de heeft. 3: er in de Cl 28 meer op¬ 
drachten ingevoerd kunnen worden 
omdat er nu ook meer tokens zijn. 4: 
U normaal geen regelnummer kunt 
gebruiken hoger dan 63999. 


* 0 



Key 

Het token KEY is iets wat ons zeer 
heeft verbaast. Waarom, omdat het 
gek genoeg 'WAS geweest’ om meer 
te kunnen doen voor ons, dan dat in 
de handleiding stond. U weet het mis¬ 
schien nog wel, in het begin vertelden 
wij u de KERNAL uit te draaien en ver¬ 
volgens de hele hap door te spitten! 
Juist dat deden wij en kwamen toen 
een paar vreemde dingen tegen. Het 
token, of liever de routine die er voor 
zorgt dat ‘hij’ moest doen wat wij van 
‘hem’ verlangden. De routine start op 
$f610a Tik de basic opdracht KEY 
maar eens in. U krijgt een lijstje met de 
functietoetsen, iets wat niet in de 
handleiding staat! Ook zo leuk dat er 
staat dat je de door u gedefinieerde 
toetsen weer kwijt bent na het, en nu 
komt het, ‘DRUKKEN' op de RESET 


knop! Nou dat mogen ze bij ons ko¬ 
men demonstreren, namelijk drukken 
OP de RESET knop is zeer lastig 
voorelkaar te krijgen. Ten eerste zit 
deze op de zijkant, en totaal verscho¬ 
len! Volgens ons zijn ‘ZE’van Commo¬ 
dore de woorden ‘MET EEN PEN’ ver¬ 
geten. En dit is nu weer typisch Com¬ 
modore!! Vergeten te vermelden, in- 
compatible en de ondersteuning to¬ 
taal vergeten. Dit is een schoolvoor¬ 
beeld van ZAKKEN VULLERS! Maar 
goed daar zullen we maar over zwij¬ 
gen zeggen ze dan. Toen de program¬ 
meurs de KERNAL aan het ontwerpen 
waren wisten ze kennelijk zelf ook nog 
niet wat er komen moest. Wanneer u 
namelijk KEY intikt wordt er eerst ge¬ 
controleerd of er niet ‘toevallig’ KEY 
ON bedoeld wordt! Tik maar eens het 
onderstaande voorbeeld in: 

KEY ON [RETURN] 

U krijgt een UNIMPLEMENTED 
COMMAND ERROR op uw scherm 
en daarmee wordt uw poging teniet 
gedaan. Ook KEY OFF is mogelijk, 
probeer het maar. Weer de melding 



dat DIT commando niet toegestaan is. 
En wat dacht u van KEY OFF$ tja ook 
dat wordt ‘voor de snelheid zeker?’ 
gecontroleerd. Slordig heren zeer 
slordig. Waarom niet gewoon direct 
naar $6121 dat werkt toch immers 
veel sneller. Hoogstwaarschijnlijk wa¬ 
ren de heren van plan om een GW- 
BASIC achtige omgeving te ontwik- 
kellen, maar daar is helaas niets van 
terechtgekomen. Dat neemt niet weg 
dat de Cl 28 basic toch nog wel enige 
luxe, ten opzichte van de C64 basic, 
heeft. Wanneer u dus wat aan de 
KERNAL wilt gaan veranderen kunt u 
een dergelijke grap wel gebruiken, u 
kunt namelijk de routine naar uw ei¬ 
gen routine laten springen. Om vervol¬ 
gens daar aangekomen een KEY rou¬ 
tine te programmeren die de functie¬ 
toetsen onder in het scherm laat zien. 
Daarvoor zou u dan het aantal regels 


met 5 moeten vergroten. Op deze ma¬ 
nier heeft u 5 regels extra op uw 
scherm, let wel alleen op het 80 cis. 
Onze editor uit het vorige nummer laat 
u zien dat het perfect kan werken, 
want daarin hebben wij immers diver¬ 
se code’s in de extra regels voor u 
neergezet. 

Overbodig 

Dit is nog niet alles want er zijn nog 
meer basic opdrachten die geen enkel 
nut hebben, en daarom ook met de 
bovengenoemde melding komen. Er 
zijn er twee en dat zijn OFF en QUIT. 
Welk nut deze zouden moeten heb¬ 
ben is ons nog niet duidelijk. Mis¬ 
schien wilden de makers van de 
KERNAL wel een zero-page gebrui¬ 
ken om zo bijvoorbeeld het 80 cis gra¬ 
fisch te kunnen gebruiken. Zeker we¬ 
ten doen wij het dan ook niet maar dat 
zou toch zeker de bedoeling kunnen 
zijn geweest. Er is immers nog een 
zee van ruimte in de KERNAL te vin¬ 
den. Overigens voordat we het verge¬ 
ten, de kernal van de DCR en de los¬ 
se, of oude D versie, is niet hetzelfde! 
Er zitten immers ook minder 
EPROM’s in de DCR versie. Commo¬ 
dore heeft gewoon twee EPROM’s in 
een gestopt. Niet bijzonder dus maar 
leuk om te weten. 

Aanschaf 

Wanneer u nog geen Cl 28 heeft kunt 
u altijd nog tot aanschaf overgaan. U 
heeft dan 3 computers voor het geld 
van 1. En dat is mooi meegenomen. 

Dubbel 

Ook zijn er een aantal basic opdrach¬ 
ten dubbel of geheel overbodig. Waar¬ 
om het commando COPY als dit toch 
alleen werkt op een dubbelle diskdri¬ 
ve. Oke je zou een copy onder een an¬ 
dere naam op de zelfde diskette kun¬ 
nen maken. MAAR daarvoor gebrui¬ 
ken wij liever een tweede save op¬ 
dracht voor op een andere disk. Wat 
heb je er aan als de disk verloren 
gaat? Tja, u had een backup maar 
daar heeft u nu ook niets meer aan. 
De opdracht COPY is dus gewoon on¬ 
zinnig! Ook BACKUP is zo’n totale 
overbodige opdracht. Ook hier weer 
wat moeten we ermee als commodo¬ 
re het vertikt, en dat is nog netjes uit¬ 
gedrukt, om die dubbele diskdrive te 
verkopen. Wat die dubbele verkopen, 
ze zijn zelfs met de verkoop van de 
normale 1570 en 1571 gestopt. Die 
werd niet voldoende naar wens ver¬ 
kocht. Tja, had u nog geen geld voor 
het aanschaffen voor een 1570,1571 
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dan zult u of een tweedehands model 
of een 1581 moeten aanschaffen. Een 
ding is zeker met zo’n 1581 heeft u het 
voordeel van de massale opslag. 
Maar daar zijn weer problemen mee 
te verwachten als commodore zo’n te¬ 
rughoudende houding blijft aanhou¬ 
den. Veel bedrijven die de Cl 28 steu¬ 
nen zijn er inmiddels al niet meer, 
want daar heeft de copy-freak wel 
voor gezorgd. Het is gewoon bijna niet 
rendabel meer om voor een home¬ 
computer een programma te ontwik¬ 
kelen. Zelf zitten wij daar totaal niet 
mee, en waarschijnlijk zijn er meer 
personen die er zo over denken. Maar 
waar waren we gebleven, oja wat 
dacht u van deze? CATALOG is het¬ 
zelfde als DIRECTORY. Ja echt deze 
opdrachten springen beide naar de¬ 
zelfde routine in de KERNAL. Zo lijkt 
u er in ieder geval meer te hebben dan 
er echt bruikbaar zijn. Wanneer u het 
wilt testen typ dan de onderstaande 
sys maar eens in: 

sys dec("a07e") [RETURN] 

Wat willen wij dan? 

Zou u het ook niet waarderen wan¬ 
neer er, volautomatisch, naar de 2 
MHz mode zou worden gesprongen in 
de 80 cis mode! Wij in ieder geval wel. 
En of het nog niet genoeg is staat de 
karakterset ook nog eens in UPPER- 
CASE. Tja hoezo standaard? Maar 
gelukkig zijn er nog voldoende andere 
positieve dingen die wij kunnen be¬ 
spreken. Mochten er personen zijn die 
in deze discussie willen meespreken, 
gewoon even uw mening naar ons toe 
sturen. Dan zullen wij eens kijken wat 
wij er aan kunnen doen. Zullen we dan 
met z’n allen, een voor ons bruikbare 
KERNAL, ontwikkelen waarbij dit 
soort gerommel tot het verleden be¬ 
hoort. Dus stuur uw klachten maar op 
en wij doen de rest! 

Functietoetsen 

Voordat we over de functietoetsen be¬ 
ginnen eerst even dit. De functietoet¬ 
sen werken perfect, alleen zijn er 
meerdere wensen en eisen. Als pro¬ 
grammeur een gouden tussenweg te 
vinden is hondenwerk. Er zal altijd ge¬ 
schipperd moeten worden! Maar hier¬ 
bij kon het toch nog wel wat beter. Al¬ 
lereerst kon het scherm eerst wel 
eens worden schoongemaakt voordat 
de directory op het beeldscherm te¬ 
voorschijn komt. Het inladen van file’s 
gaat ook niet perfect, oké het werkt 
maar in ieder geval niet naar onze 
maatstaven. Volgens ons moet je ge¬ 


woon op een knop drukken en de 
computer doet de rest. Daar is een 
computer immers voor ontworpen, om 
de mens van overtollig werk te ont¬ 
doen. Woorden schieten te kort! Voor 
lol was er wel genoeg ruimte in de 
KERNAL, dat hebben we al gezien. 

Komkommerscheel! 

Commercie voor een POWER-CAR- 
DRIDGE voor de Cl 28 was er niet bij. 
Niemand maar dan ook niemand 
snapt blijkbaar hoe de expansionpoort 
op de Cl 28 werkt. De grap is dat ‘ze’ 
geen RESET kunnen maken die 
dwars door de KERNAL heen ramt! 
Tja dat is een tegenvaller. 

064 tegen C-128 

Er zijn volgens ons nog voldoende 
personen die wel met de C64, maar 
niet met een C-128 kunnen omgaan. 
En nu gaan we niet iedereen op de te¬ 
nen trappen, door te zeggen: Ze kun¬ 
nen er niet mee omgaan, omdat er te 
weinig mensen zijn die het hun voor¬ 
zeggen. Want wij zijn er immers toch 
ook nog, nietwaar dan. Of is er nog 
iets wat ons is ontgaan. We kunnen al¬ 
lemaal met de C-128 omgaan, maar 
tot hoever gaat U? Weet U hoe de 
BANKING en de MMU werkt? Hoe¬ 
veel boeken heeft u over de C-128 ge¬ 
lezen. Wat wij dus willen zeggen is het 
volgende:"Nederland nederland wordt 
wakker, of doen we onze naam eer 
aan? Klim in de pen/computer en ga 
aan de slag, programmeer er op los 
en maak er wat van, want dan zijn we 
samen sterk!". 

Ons hart onder uw riem ! 

Wanneer u zelf een programma heeft 
ontwikkeld, stuur het dan vandaag 
nog direct naar ons toe. En wanneer u 
wilt dat wij het discreet bekijken dat 
vinden wij ook goed. Laat ons vol soft¬ 
ware 1989 ingaan! Tja het maakt niet 


uit wat het is, als u het maar naar ons 
opstuurt. Zolang het maar geen BOM¬ 
BRIEF is vinden wij alles best. Heeft u 
een virus, stuur maar op, daar zijn wij 
niet zo bang voor.Stuur ons alleen 
geen gecompileerde BASIC toe, want 
dat bekijken we niet eens! Waarom, 
omdat we wel een recompiler uit Oos¬ 
tenrijk hebben voor de Blitz en de Aus- 
tro-compiler maar daar zitten nog een 
paar haken en ogen aan! Wat dan, te 
veel gedonder om het op de diskette 
te krijgen. En aangezien wij toch al zo¬ 
veel tijd tekortkomen!!! Stuur gerust 
Assembly, Basic, C, of Pascal pro¬ 
gramma’s toe, dan doen wij net of wij 
er verstand van hebben oké! Ons 
postadres is: 


Commodore ‘Triple 128’ INFO 
Postbus 43048, 

1009 ZA Amsterdam 


De buurman heeft hem ook! 

Vaak wordt er tot aanschaf van een 
computer overgegaan omdat een 
vriend, buurman of collega ook een 
computer in huis heeft staan. Maar 
kan die collega er ook daadwerkelijk 
mee omgaan? Het lijkt vaak mooier 
dan het is. Vanwaar nu deze klaag¬ 
zang van ons? Omdat een bekende 
niet nader te noemen ARTS ons heeft 
gezegd dat de zogenaamde ‘SHOCK¬ 
THERAPIE’ het beste werkt! Gewoon 
omdat wij dat eens wilden testen op 
het publiek. U bent dus gewoon even 
een proefkonijn! 

P.S. Wie O wie weet wie die Master 
Compiler heeft geschreven ? ? ? 
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Bij de Cl 28 is het verschrikkelijk vervelend dat bij elke druk op de reset knop, de com¬ 
puter weer helemaal opnieuw opstart. Doordat de computer helemaal opnieuw opstart, 
komt hij ook weer langs de BOOT routine. Daar dit heel vaak niet nodig is, hebben wij 
hier wat op gevonden. Hiermee lopen we vast vooruit op wat komen gaat. Het door ons 
zelf gemaakte kleine programma zorgt voor een aantal handige dingen. 

Anti Reset 128 

Z oals wij al eerder schreven hebben wij er zo’n hekel aan dat de karakters 
door jezelf op LOWER-CASE moeten worden gezet. Ook moet je telkens 
weer FAST intikken. En aangezien wij daar op den duur groen en grijs van 
zagen kwamen we op het idee om een kleine maar krachtige tooi voor u te 
ontwikkelen. 



Wat doet het programma? 

Ons programma, dat we vanaf nu 
maar ‘Anti Reset 128' zullen noemen, 
doet het volgende voor u. Wanneer u 
eenmaal het programma heeft ingela¬ 
den, en opgestart heeft met RUN, 
wordt het programma actief. Na het 
opstarten buigt het programma de 
RESET vectoren om. Bij een reset 
worden eerst de l/O componenten 
geïnitialiseerd, vervolgens wordt het 
scherm en de editor geïnitialiseerd. 
Hierna wordt er door het programma 
gekeken of u de spatiebalk heeft inge¬ 
drukt! Wanneer u dus op de spatiebalk 
drukt, bij een reset, gaat de routine 
verder met de BOOTCALL routine van 
de KERNAL. En wordt er op disk ge¬ 
keken of het ook een BOOTdisk is. Zo 
ja dan start uw programma van de 
bootdisk op. En wanneer u dus niet op 
de spatiebalk drukt dan start de com¬ 
puter gewoon wat verkort op. 

FAST en SLOW 

Bij een reset zoekt de computer zelf 
uit op welk beeldscherm u aan het 
werken was. Wanneer u op het 40 cis 
bezig was, dan zet het ‘Anti Reset 
128’ programma uw computer in de 
SLOW mode. Wanneer u op het 80 cis 
aan het werken was dan zet ‘Anti Re¬ 
set 128’ uw computer in de FAST 
mode. Het omschakelen gaat dus vol¬ 
automatisch. 

Lower-case 

Om niet telkens weer de karakters in 
de LOWER-CASE te hoeven zetten 
doen wij dat ook weer even voor u. 
Het scherm wordt hierna weer 
schoongemaakt en er komt een mel¬ 
ding op uw scherm. De melding zou er 
zo moeten uitzien : 


Anti Reset 128 

Nadat u deze melding op uw scherm 
heeft gezien kunt u weer rustig verder 
werken. De BASIC programmatuur 
blijft dan ook na een reset gewoon in 
het geheugen staan! 

Functietoetsen 

De functietoetsen zijn een bron van 
ergenis! Daar hebben wij dus ook 
even wat aangedaan. Allemaal in dit 
kleine programma? Tja u zien het, met 
gemak! Zo zijn dus de functietoetsen 
ook aangepast! Zoals u hieronder 
kunt zien zijn deze nu gewoon bruik¬ 
baar. Gewoon omdat, ach u ziet het zo 
wel! 

key 1: FAST Omschakelen naar de 2 
MHz mode. 

key 2: SLOW Omschakelen naar de 1 
MHz mode. 


key 3: DLOAD Gewoon een file uit de 
directory inladen zonder dat u er wat 
voor of achter hoeft weg te halen! 
key 4: BLOAD Ook hier weer als bo¬ 
venstaande key, maar dan voor BLO¬ 
AD! 

key 5: DIRECTORY Voordat u de in¬ 
houdsopgave op uw scherm te zien 
krijgt wordt eerst het scherm schoon 
gemaakt. 

key 6: RUN Voor het opstarten van 
een basic programma, 
key 7: LIST Voor het listen van een ba- 
sic file. 

key 8: MONITOR Voor de echte ma¬ 
chinetaal freak, op naar het echte 
werk. 

Scherm wissen 

Bij de opdrachten FAST, SLOW, DI¬ 
RECTORY, RUN en LIST wordt eerst 
het scherm schoongemaakt. Een han¬ 
dige bijkomstigheid dachten wij zo. 
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Lengte 

Omdat ons programma MAAR 186 
bytes groot is, mag er NIEMAND kla¬ 
gen over het typewerk wat er aan 
vooraf gaat. Van deze 186 bytes zijn 
er al 76 verantwoordelijk voor de func¬ 
tietoetsen. Na een heel klein reken¬ 
sommetje komen we dan op zo’n 110 
bytes voor de rest van de code. Een 
hele aardige, kleine en verrekt handi¬ 
ge MICRO! 

Programma verloop 

load new_vector 
store new_vector 
exit 

Bij een RESET 

jsr I/O init 

jsr screen/editor init 

check boot 

beq phoenix 

store slow/fast 

key__def 

exit 

Aanpassen 

Elke nuttige aanpassing is welkom. U 
kunt deze tooi zelf aanpassen naar uw 
eigen wensen. Wanneer u uw aan¬ 
passing eens zou willen opsturen, dan 


kunnen anderen er misschien ook nog 
wat mee doen. Om het Anti Reset 128 
programma direct te aktiveren moet u 
jmp$ff77 veranderen in jsr$ff77. Ook 
zou u na het wegpoken van de data de 
volgende sys opdracht kunnen geven: 
sys 4908. Daar staat de kracht van de 
routine dan ook. Om in de listing de 
jmp in een jsr te veranderen moet u in 
regel 260 van de listing de 076 in een 
032 veranderen. Vergeet niet de va¬ 
riabele CS met 44 te verlagen, anders 
krijgt u weer de listing op uw scherm. 
En dat betekent dat er iets fout is ge¬ 
gaan. En we kunnen u wel zeggen dat 
wij die verandering er ook hebben in¬ 
gezet. Het was gewoon een kwestie 
van gemakzucht! 

Virus mania 

Nee, er zit geen virus in, sterker nog 
het is zelfs geen virus. Tja daar wordt 
je vandaag de dag wel gek van, op de 
Amiga en PC. Gelukkig hebben wat 
mensen de makers van de Cl 28 vi¬ 
russen aardig afgerost! U kunt het vi- 
ruswerk dan ook beter uit uw hoofd 
zetten! 

HCC-dagen 

Voordat we het vergeten, stuur uw 
HCC-dagen ervaringen eens naar ons 
toe! Zullen we de volgende keer eens 


kijken wat we daar weer mee kunnen 
gaan doen. Het is bij het schrijven van 
deze artikelen nog niet zover, maar na 
het drukken van de INFO is het al lang 
weer afgelopen. 

Demo 

Ook dit keer hebben wij weer een klei¬ 
ne demo voor u. Het programma 
‘GURU_128’ heeft wel heel veel per¬ 
sonen het hoofd op hol laten slaan. 
Met deze GURU is uw Cl 28 even een 
Amiga geworden. Het is een kleine 
maar reuze leuke routine geworden. 
Heeft u zelf wat van dit soort grappige 
demo’s, opsturen graag. 

Intikken 

Intikken en opstarten van de demo is 
voldoende!! Het is natuurlijk de be¬ 
doeling dat u de programmatuur eens 
heel goed van dichtbij gaat bekijken. 
Hierdoor zult u op den duur, als basic 
programmeur, ook verstand krijgen 
van machinetaal. En wellicht bedenkt 
u zelf nog wel een zo’n monster van 
een tooi. 

JOHAN & JOHAN 
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110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 


rem"****************************************************************' 
rem"* Reset en utility programma voor de CBM 128 (d) *' 

rem"* *' 

rem"* Door Johan & Johan in 1988 voor Commodore INFO *' 

rem"***************************************************************** 

: for x=4864 to 5050 
: read a 

: cs=cs+a 

: poke x,a 

: next x 

if csol7945 then printchr$ (7) : list:end 


data 169,248,133,250,169,255,133,251,169,250,141,185,002,169,044,162 
data 001,160,000,032,119,255,169,249,133,250,169,255,133,251,169,250 
data 141,185,002,169,019,162,001,160,000,076,119,255,032,009,225,032 
data 123,192,032,061,246,201,239,208,003,032,139,248,036,215,016,005 
data 169,001,076,071,019,169,000,141,048,208,162,000,189,110,019,157 
data 000,016,232,224,076,208,245,032,125,255,014,147,193,078,084,073 
data 032,210,069,083,069,084,032,049,050,056,000,076,003,064,006,006 
data 012,012, 005, 005,006, 004, 004,006,147, 070, 065, 083, 084, 013, 147,083 
data 076,079,087,013,068,076,079,065,068,009,009,009,032,032,032,013 
data 066,076,079,065,068,009,009,009,032,032,032,013,147,068,073,114 
data 013,147,082,085,078,013,147,076,073,083,084,013, 077,079,110, 013 
data 147,066,111,013,147,072,069,076,080,013,255 
bsave "resetl28",b0,p4864 to 5050 
sys 4864 
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1000 

BNK 0 

1010 

ORG $0B00 

102 0 / 

1030 SPACE 

EQU 239 

1040 DEFAULT 

EQU $1000 

1050 STAVEC 

EQU $02B9 

1060 CINT 

EQU $C07B 

1070 10 INIT 

EQU $E109 

1080 READKB 

EQU $F63D 

1090 BOOT 

EQU $F88B 

1100 INDSTA 

EQU $FF77 

1110 PRIMM 

EQU $FF7D 

1120 / 

1130 INIT VECTOR 

LDA #$F8 

1140 

STA $FA 

1150 

LDA # $FF 

1160 

STA $FB 

1170 

LDA #$FA 

1180 

STA STAVEC 

1190 

LDA #<RESET ROUT 

1200 

LDX #$01 

1210 

LDY #$00 

1220 

JSR INDSTA 

1230 

LDA #$F9 

1240 

STA $FA 

1250 

LDA #$FF 

1260 

STA $FB 

1270 

LDA #$FA 

1280 

STA STAVEC 

1290 

LDA #>RESET ROUT 

1300 

LDX #$01 

1310 

LDY #$00 

1320 

JSR INDSTA 

1330 RESET ROUT 

JSR IO INIT 

1340 

JSR CINT 

1350 

JSR READKB 

1360 

CMP SPACE 

1370 

BNE NO BOOT 

1380 

JSR BOOT 

1390 NO BOOT 

BIT $D7 

1400 

BPL SLOW MODE 

1410 

LDA #$01 

1420 

JMP FAST MODE 

1430 SLOW MODE 

LDA #$00 

1440 FAST MODE 

STA $D030 

1450 

LDX #$00 

1460 NEXT KEY 

LDA KEY TABEL,X 

1470 

STA DEFAULT,X 

1480 

INX 

1490 

CPX #$4C 

1500 

BNE NEXT KEY 

1510 

JSR PRIMM 

1520 / 

1530 MESSAGE 

DAT $0E93C14E544 

1540 

JMP $ 4 0 0 3 

1550 / 

1560 KEY TABEL 

DAT $06060C0C050 

1570 

DAT $534C4F570D4 

1580 

DAT $424C4F41440 

1590 

DAT $9352554E0D9 

1600 

DAT $6F0D9348454 


;code bank 0 
;vanaf adres $0B00 


zetten 

laden 


: accu met $F8 van adres $FFF8 laden 
;en wegzetten op index adres 
; accu met $FF van adres $FFF8 laden 
; en wegzetten op index adres 
; index adres laden 
;vector instellen 
; 1o-byte reset routine inladen 
;data (accu) in bank 1 plaatsen 
;geen data index 
; 1o-byte van de reset routine 
; accu met $F9 van adres $FFF9 
; en wegzetten op index adres 
; accu met $FF van adres $FFF9 laden 
;en wegzetten op index adres 
;index adres laden 
/vector instellen 
;hi-byte reset routine inladen 
/data (accu) in bank 1 plaatsen 
/geen data index 

/hi-byte van de reset routine zetten 

/1/0 onderdelen initialiseren 

/initialiseren 80 cis editor 

/lees data van keyboard 

/controleren op SPACE 

/over de boot routine heenspringen 

/even langs de boot call 

/staat de computer in 80 CLS mode 

/zo niet dan SLOW mode instellen 

/anders in de FAST mode zetten 

/even over SLOW mode heenspringen 

/SLOW mode instellen 

/op het mode adres- wegzetten 

/nieuwe funktie toetsen initialiseren 

/haal de nieuwe waarden uit de tabel 

/en zet ze over de standaard tabel heen 

/volgende waarde afhandelen 

/alles over gedragen? 

/zo niet, dan volgende ophalen 
/bytes als melding op scherm zetten 
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PRINT OUT C-128 met Competitie 128 




Competitie 128 


Competitie 128 is een programma van Richard van 
Tol. Dit is een programma waarmee u competities bij 
kunt houden De ranglijst + de uitslagen kunnen wor¬ 
den opgeslagen en uitgeprint. Op het beeldscherm 
wordt duidelijk hoe het programma te gebruiken, zo¬ 
dat een verdere uitleg hier overbodig is. 

1 rem compettie c-128 

2 rem door richard van tol uit woerd 
en 

3 rem werkt alleen met een disk driv 
e 

10 dim n$(21),aw(21),haw(21),gw(21),h 

w(21),gl(21),hgl(21),vl(21),hvl(21 
),p(21),hp(21),dv(21),hdv(21),dt(2 
1),ht(21),n(21),b(21),td(21),bd(21 
) ,s(21) ,hs(21) 

20 fast:c$="a" 

30 gosub 1180:rem nieuwe bestand of b 

estand laden 

40 p(aa+1)=-99:s(aa+1)=-1000 

50 rem ***************************** 

************************** 

60 rem *******zet ranglijst + uitslag 

en op scherm************* 

70 rem ****************************** 

************************* 

80 scnclr:print"de[SPACE]uitslagen[SP 

ACE]zijn":print:print 
90 for a=l to wa 

100 printk$(a);”[SPACE]-[SPACE]";kl$(a 

);tab(30);td(a);"[SPACE]-[SPACE]"d 
b (a) 

110 next a 

120 bend 

130 getkeyc$:c$="" 

140 print"[SHIFT-CLR]de[SPACE]competit 

iestand[SPACE]is[SPACE]als[SPACE]v 
olgt:" 

150 print:print 


for a=l to aa 

print a" . " ; n$(a);tab (20) ; 

print using"#####";aw(a),gw(a),gl( 

a),vl(a),p(a) ,dv(a) ; 

print"[2xSPACE];:print using"### 

#"; dt (a) 

next a:print 

print"[CTRL-9]p[CTRL-0][CRSR-RIGHT 
]=uitprinten[SPACE]stand[SPACE]+[S 
PACE]uitslagen.[SPACE][CTRL-9]1[CT 
RL 0][SPACE]=nieuw[SPACE]competiti 
e[SPACE]laden" 

print"[CTRL-9]i[CTRL-0][SPACE]=inv 
oeren[SPACE]nieuwe[SPACE]uitslagen 
[5xSPACE][CTRL-9]s[CTRL-0][SPACE]= 
gegevens[SPACE]saven" 
input"[CRSR-DOWN]uw[SPACE]keuze[SP 
ACE]";k$ 

if k$="s" then 1500 
if k$="i" then goto 270 
if k$="l" then 1740 
if k$="p" then goto 1000 
goto 140 

rem ****************************** 
************************* 

rem ********uitslagen invoeren en 
verwerken**************** 
rem ****************************** 
************************* 

scnclr:print"[CRSR-DOWN][SPACE]als 
[SPACE]u[SPACE]niet[SPACE]wilt[SPA 
CE]invoeren[SPACE]typ[SPACE]dan[SP 
ACE]q":getkeyc$:if c$="q" then 140 
scnclr 

input"hoeveel[SPACE]wedstrijden[SP 
ACE]wilt[SPACE]u[SPACE]invoeren";w 
a 

if wa > int(aa/2) then print "dit[ 
SPACE]aantal[SPACE]is[SPACE]te[SPA 
CE]groot":goto 310 
for a=l to wa 

scnclr:c$="":printtab(34);chr$(2)" 
wedstrijden[SPACE]invoeren";chr$(1 
30):print"[CRSR-DOWN][SPACE]wedstr 
ijd[SPACE]nr.[SPACE]";a:print:prin 
t:print 

do until c$="j" 

input"plaat s[SPACE]op[SPACE]de[SPA 
CE]ranglijst[SPACE]v/d[SPACE]thuis 
club[SPACE]";n(a):if n(a) > aa the 
n gosub 2020:goto 360 
b$(n(a))=n$(n(a)) 

input"plaats[SPACE]op[SPACE]de[SPA 
CE]ranglijst[SPACE]v/d[SPACE]bezoe 
kers[SPACE]";b(a):if b(a) > aa the 
n gosub 2020:goto 370 
bl$ (b (a) ) =n$ (b (a) ) 
input"doelp.thuisclub";td(a) 
input"doelp.bezoekers";db(a) 
print"[CRSR-DOWN]correct[SPACE](j/ 
n) " 

getkeyc$ 

loop 

k$(a)=b$(n(a)) :kl$ (a)=bl$(b(a)) 
aw (n (a) ) =aw (n (a) ) +1: aw (b (a)) =aw (b ( 
a))+1:rem aantal wedstrijden ophog 
en 

dv(n(a))=dv(n(a))+td(a):dv(b(a))=d 
v (b(a))+db(a) :rem doelp.voor ophog 
en 

dt (n (a) ) =dt (n (a) ) +db (a) : dt (b (a) ) =d 


450 
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t (b (a))+td(a) :rem doelp.tegen opho 

970 


gen 

980 

460 

if td(a)=db(a) then begin 

990 

470 

gl(n(a))=gl(n(a))+1 

1000 

480 

gl (b (a) ) =gl (b (a) ) +1 

1010 

490 

p (n (a) ) =p (n (a) ) +1 

500 

p (b (a) ) =p (b (a) ) +1 


510 

bend 

1020 

520 

if td(a) < db(a) then begin 


530 

vl (n (a) ) =vl (n (a) ) +1 

1030 

540 

gw(b(a))=gw(b(a))+1 

1040 

550 

p (b (a) )=p(b(a) )+2 

1050 

560 

bend 


570 

if td(a) > db(a) then begin 

1060 

580 

gw(n(a))=gw(n(a))+1 

1070 

590 

vl(b(a))=vl(b(a))+1 

1080 

600 

p (n (a) ) =p (n (a) ) +2 


610 

bend 


620 

next a 

1090 

630 

rem ****************************** 

1100 


**************** 

1110 

640 

rem ********ranglijst bijwerken*** 



**************** 

1120 

650 

rem ****************************** 

1130 


**************** 

1135 

660 

scnclr:print"[llxCRSR-DOWN]";tab(2 



5)"de[SPACE]ranglijst[SPACE]wordt[ 
SPACE]bijgewerkt." 

1140 

670 

for x=l to aa 

1145 

680 

for y=l to aa 


690 

if p(y+1) > P(y) then begin 

1150 

700 

haw(y)=aw(y+1):hw(y)=gw(y+1):hgl(y 

1160 


)=gl(y+1);hvl(y)=vl(y+1) 

1170 

; 710 

hp(y)=p(y+1):hdv(y)=dv(y+1):ht(y)= 
dt(y+1) 

1180 

720 

aw(y+1)=aw(y);gw(y+1)=gw(y):gl(y+l 
)=gl(y):vl(y+1)=vl(y):p(y+l)=p(y) 

1190 

730 

dv (y+1) =dv (y) : dt (y+1) =dt (y) 

1200 

740 

aw(y)=haw(y):gw(y)=hw(y):gl(y)=hgl 



(y):vl(y)=hvl(y):p(y)=hp(y) 

1210 

750 

dv (y) =hdv (y) : dt (y) =ht (y) 

1220 

760 

hn$(y)=n$(y+1):n$(y+1)=n$(y):n$(y) 
=hn$(y) 


| 770 

bend 


780 

next y 


790 

next x 


800 

for a=l to aa 


810 

s (a) =dv (a) -dt (a) 


820 

next a 


830 

rem *****************bijwerken op 
doelsaldo***************** 


840 

for x=l to aa 


850 

for y=l to aa 


860 

if p(y+l)=p(y) then begin 


870 

if s(y+1) > s(y) then begin 


880 

haw(y)=aw(y+1):hw(y)=gw(y+1):hgl(y 
)=gl(y+1):hvl(y)=vl(y+1) 


890 

hp(y)=p(y+l):hdv(y)=dv(y+1):ht(y)= 
dt(y+1) :hs(y)=s(y+1) 


900 

aw(y+1)=aw(y);gw(y+1)=gw(y):gl(y+l 
)=gl(y);vl(y+l)=vl(y):p(y+l)=p(y) 


910 

dv(y+1)=dv(y):dt(y+1)=dt(y):s(y+l) 

=s (y) 


920 

aw(y)=haw(y):gw(y)=hw(y):gl(y)=hgl 
(y):vl(y)=hvl(y):p(y)=hp(y) 


930 

dv (y) =hdv (y) : dt (y) =ht (y) : s (y) =hs (y 
) 

hn$(y)=n$(y+1):n$(y+1)=n$(y):n$(y) 
=hn$(y) 


940 


950 

bend 


960 

bend 



next y 
next x 
goto 50 

rem ****************************** 
********************* 
rem *********** gegevens uitprinte 

ft ******************* 

rem ****************************** 
********************* 
open4,4 
po$=chr$(16) 

print#4,po$;"02";chr$(14);"uitslag 
en" 

print#4,chr$(15) 
for a=l to wa 

print#4,po$;"02";k$(a);"[SPACE]-[S 
PACE]";kl$(a);po$;"32";td(a);"[SPA 
CE] - [SPACE] " ; db (a) 
next a 

for a=l to 3:print#4,"":next a 
print#4,po$;"02";chr$(14);"de[SPAC 
E]ranglijst" 
print#4,chr$(15) 
for a=l to aa 

print#4,po$;"02";a;".[SPACE]";n$(a 
);po$;"22"; 

print#4,using"####";aw(a),gw(a),gl 
(a) ,vl(a) , p (a) ,dv(a) ; 
print#4,"[2xSPACE]:print#4,usin 
g"####";dt(a) 
next a 
close 4 
goto 50 

rem ****************************** 
******** 

rem ************ keuze menu ***** 
******** 

rem ****************************** 
******** 

print chr$(147) 

print tab(21);chr$(2);"c[SPACE]o[S 
PACE]m[SPACE]p[SPACE]e[SPACE]t[SPA 
CE]i[SPACE]t[SPACE]i[SPACE]e[3xSPA 
CE]c[SPACE]-[SPACE]1[SPACE]2[SPACE 


011 
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]8[SPACE]";chr$(130) 

for a=l to 8:print:next a 

print"[13xSPACE]1.nieuwe[SPACE]com 

petitie[SPACE]aanmaken" 

print"[CRSR-DOWN][13xSPACE]2.besta 

ande[SPACE]competitie[SPACE]laden" 

do while c$<>"l" and c$<>"2" 

getkeyc$ 

loop 

on val(c$) gosub 1310,1770 
return 

rem ****************************** 
****************** 

rem ********nieuwe competitie aan 
maken************ 

rem ****************************** 
***************** 

print chr$(147) 

print tab(18);chr$(2);"nieuwe[SPAC 
E]competitie[SPACE]aanmaken";chr$( 
130) 

print:print 

print"hoeveel[SPACE]clubs?[SPACE]m 
aximaal[SPACE]20.":print"als[SPACE 
]u[SPACE]geen[SPACE]nieuwe[SPACE]c 
ompetitie[SPACE]wilt[SPACE]aanmake 
n[SPACE]typ[SPACE]dan[SPACE]q":pri 
nt:print 
input aa$ 

if aa$="q" then return 
if val(aa$) > 20then 1340 
print:print 
for a=l to val(aa$) 
do while c$<>"j" 

print:print"naam[SPACE]club[SPACE] 
";a;:input n$(a) 

print:print"[SPACE]is[SPACE]de[SPA 
CE]naam[SPACE]correct[SPACE](j/n)" 
getkeyc$ 
loop 

c$="":next a 
aa=val(aa$):return 

rem ****************************** 
**★★*★★*******★******★★★★★★★★★*★★* 








03=- M 




4 JV? 


** h fc,«- t ® ö 40* 


(a)","vl(a)","p(a)",”dv(a)","dt(a) 
next a 
close 1 
printchr$(147) 

print"[2xCRSR-DOWN][SPACE]de[SPACE 
]gegevens[SPACE]zijn[SPACE]gesaved 

print"[4xCRSR-D0WN][SPACE]druk[SPA 
CE]een[SPACE]toets" 
getkeyc$ 
goto 50 

rem ****************************** 
****** * 

rem ********* competitie laden *** 
******* 

rem ****************************** 


rem *******************competitie 
op disk zetten******************** 
* 

rem ****************************** 
********************************** 
★ 

scnclr:print"[CRSR-DOWN][SPACE]als 
[SPACE]u[SPACE]niet[SPACE]wilt[SPA 
CE]saven[SPACE]typ[SPACE]dan[SPACE 
]q":getkeyc$:if c$="q" then 140 
print:print:input"naam[SPACE]van[S 
PACE]de[SPACE]competitie[SPACE]";c 
o$ 

2TSITI kkkkkkkkkkkk 13TÏ j d@Zl * k k k k k 

kkkkkkkkk 

open 1,8,2,"0:"+co$+".wed,w" 
for a=l to wa 

print#1,k$(a)","kl$(a)", "td(a)", "d 
b (a) 
next a 
close 1 

rem *************ranglijst******** 
kkkkkkkkk 

open 1,8,2,"0:"+co$+".ran,w" 
for a=l to aa 

print#l,n$(a)","aw(a)","gw(a)","gl 


printchr$(147):clr 

dim n$(21),aw(21),haw(21),gw(21),h 
w(21),gl(21),hgl(21),vl(21),hvl(21 
) ,p(21) ,hp(21) ,dv(21) , hdv (21) ,dt(2 
1),ht (21),n(21),b(21),td(21),bd(21 
) , s(21),hs(21) 

printtab(20);chr$(2);"competitie[S 

PACE]laden";chr$(130) 

input"[3xCRSR-DOWN][SPACE]naam[SPA 

CE]competitie[SPACE]";co$ 

open 15,8,15 

open 1,8,2,co$+”.wed 

input#15,fe:if fe=0then 1850 

print"[3xCRSR-DOWN][SPACE]deze[SPA 

CE]competitie[SPACE]is[SPACE]niet[ 

SPACE]op[SPACE]deze[SPACE]diskette 

[SPACE]aanwezig" 

closel:closel5:getkeyc$:goto 1210 
a=l 

input#l,k$(a),kl$(a),td(a),db(a) 
if st<>64 then a=a+l:goto 1860 
closel:wa=a 
a=l 

open 1,8,2,co$+".ran 

input#1, n$ (a) , aw (a) , gw (a) , gl (a) , vl 

(a) , p (a) , dv (a) , dt (a) 
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1920 if st<>64 then a=a+l:goto 1910 
1930 print" [3xCRSR-DOWN][SPACE]de[SPACE 
]competitie[SPACE]"co$"[SPACE]is[S 
PACE]geladen[SPACE]en[SPACE]bevat[ 
SPACE]"a"[SPACE]clubs" 

1940 close 1:closel5:aa=a 
1950 p(aa+1)=-l:s(aa+1)=-1000:getkeyc$ 
1960 goto 80 
2020 rem ************** 

★ * 

2030 rem *******foute i: 

** 

2040 rem ************** 

★ ★ 

2050 printchr$(7) 

2060 print"het[SPACE]nummer[SPACE]v/d[S 
PACE]club[SPACE]is[SPACE]te[SPACE] 
hoog" 

2070 print:print 
2080 return 


EINDE LISTING competitie 102 



Checksum Competitie 


regel 

i 

68 

regel 

2 

154 

regel 

3 

48 

regel 

10 

15 

regel 

20 

251 

regel 

30 

232 

regel 

40 

38 

regel 

50 

149 

regel 

60 

176 

regel 

70 

149 

regel 

80 

21 

regel 

90 

225 

regel 

100 

70 

regel 

110 

195 

regel 

120 

23 

regel 

130 

152 

regel 

140 

168 

regel 

150 

108 

regel 

160 

203 

regel 

165 

47 

regel 

170 

154 

regel 

175 

72 

regel 

180 

150 

regel 

1:90 

20 Q 

regel 

200 

235 

regel 

230 

180 

regel 

24 0' 

176 

regel 

250 

2 

regel 

260 

175 

regel 

265 

49 

regel 

266 

30 

regel 

270 

149 

regel 

280 

221 

regel 

290 

149 

regel 

295 

38 

regel 

300 

232 

regel 

310 

226 

regel 

320 

104 

regel 

330 

225 

regel 

340 

121 

regel 

350 

142 

regel 

360 

39 

regel 

365 

236 

regel 

370 

7 

regel 

375 

5 

regel 

380 

131 

regel 

390 

104 

regel 

400 

24 

regel 

410 

1 

regel 

420 

236 

regel 

425 

36 

regel 

430 

45 

regel 

440 

9 

regel 

450 

46 


regel L . 

regel L 

regel L 

regel 1 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 1 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


regel 3 

regel 3 

regel ] 

regel ] 

regel I 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 


regel 1 

regel 3 

regel 3 

regel 3 

regel 3 

regel 1 

regel I 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 

regel 























Amiga 


Hints en suggesties 

M et ingang van deze aflevering zijn we weer op een nieuwe tak van zeer 
interresante dingen gestoten bij de Amiga. Waarom koopt half Neder¬ 
land een computerblad? Juist, onder andere voor de tips en trucs die uit het 
blad zijn te halen. Om het voor deze mensen iets gemakkelijker te maken 
verzamelen we ze dus dan maar in 1 hoek. Toch nog even een opmerking. 

Daar onze verzameling Tips en Trucs wel van enige omvang is maar met een 
bron van eeuwigdurende inspiratie is willen we de lezers oproepen hun bij¬ 
drage te leveren. Dus: 



TÏPS EN TRUCS WANTED 

Stuur ze op naar Commodore 
Info, Postbus 43048, 1009 ZA, 
Amsterdam en vermeld er bij 
‘Amiga Tips & Tr ucs ’._ 


Andere letterstijlen in 
AMIGADOS 

U kent de letterstijlen wel, cursief, vet¬ 
gedrukt, onderstreept en normaal. Het 
is ook mogelijk deze letterstijlen in 
DOS tevoorschijn te toveren, zodat 
uw teksten een nog fraaier aanzien 
krijgen. Om nu de verschillende stijlen 
op het beeldscherm te krijgen moeten 
we gebruik maken van verschillende 
tekenreeksen die beginnen met het 
ESCAPE karakter. Voor bold gebruikt 
u de ESCAPE sequence ESC,vier¬ 
kant haakje openen, 1, m. Voor italics, 
ESC, vierkant haaktje openen, 3, m. 
Voor underline, ESC, vierkant haakje 
openen, 4,m. Als u de ESCAPE reek¬ 
sen na elkaar gebruikt zal een mix van 
de gebruikte stijlen ontstaan. Wilt u dit 
niet dan zult u eerst de stijl weer moe¬ 
ten resetten, dat wil zeggen, u moet 
de stijl eerst weer naar normaal zet¬ 
ten. Dit doet u met behulp van de 
reeks, ESC, vierkant haakje openen, 
0, m. Het is ook mogelijk op analoge 
wijze de letterstijlen op uw printer te 
wijzigen. Dit wel van uit de vooronder¬ 
stelling dat uw printer over dergelijke 
letterstijlen beschikt. Typ vanuit DOS 
in copy * to prt: en geef daarna een 
van de ESCAPE sequences. Uw prin¬ 
ter zal daarna in de opgegeven letter- 
stijl verder printen. 

Handige muizenissen 

Vanuit BASIC is het mogelijk met be¬ 
hulp van een BASIC commando een 
van de muisknoppen uit te lezen. Dit 
gaat in C niet op, tenzij u natuurlijk zelf 
een functie maakt die voor dit doel 
dient. Toch zijn in de Amiga een aan¬ 


tal geheugenadressen, waar u de sta¬ 
tus van deze muisknoppen uit kunt le¬ 
zen, aanwezig. Declareer in het begin 
van uw C programma: 

char *mouseL=(char *) OxbfeOOI, 
*mouseR=(char *)0xdff016; 

Nu kunt u met behulp van de variabe¬ 
len ‘mouseL’ en ‘mouseR’ de twee 
muisknoppen uitlezen. Als de linker¬ 
muisknop ingedrukt worden zal bit 6 
hoog worden. Dus de test ‘*mousel_ & 
0x40 == 0x40’ zal TRUE opleveren. 
Op analoge wijze kunt u bit 2 van 
mouseR testen. 

Impact 

Elke rechtgeaarde Amiga bezitter kent 
het spel Impact wel. Ook bekend van 
dit spel is dat er aan het begin om een 
password gevraagd wordt. Dit is be¬ 
doeld om een tiental levels hoger in 
het spel te komen. Als u het spel nor¬ 
maal speelt, dat wil zeggen, u laat de 
tijd zijn normale verloop gaan, dan zult 
u om de 10 levels een nieuw pass¬ 
word krijgen te zien. Dit kunt u dan 
voortaan van te voren intypen. We 


hebben onze spelletjes maniak eens 
aan het werk gezet om deze pass- 
words te vinden. Na een -tigtal dagen, 
het waren eigenlijk weken maar voor 
z’n reputatie moesten we dagen ver¬ 
melden, kwam hij met de volgende 
resultaten terug: 

level 11 : GOLD 
level 21 : FISH 
level 31 : WALL 
level 41 : PLUS 
level 51 : HEAD 
level 61 : FORK 
level 71 : ROAD 
level 81 : USER 

Deze passwords schelen u weer een 
hoop zweet en tranen. Mischien ook 
wel bloed. Maar dat hangt van de ma¬ 
nier af waarop u de mouse hanteert. 

Autostart schijven 

U kent de schijven ongetwijfeld wel, je 
duwt ze in de diskdrive en voila, een 
aantal tellen later start het programma 
op. Hoe wordt dit nu gedaan? Eigen¬ 
lijk zeer eenvoudig, een beetje kennis 
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van AmigaDOS is het enige wat ver¬ 
eist is. Doe een geformatteerde schijf 
in uw diskdrive. Zorg wel dat u de 
commando’s COPY, MAKEDIR, IN- 
STALL en ED op ram disk gezet heeft. 
Verder dient u met behulp van het CD 
commando de RAM disk de actuele 
directory te maken. Typ nu in IN- 
STALL dfO:. Dit zorgt ervoor dat er 
een bootsector op schijf komt. Geef 
daarna op MAKEDIR dfO:s. Er wordt 
nu een directory genaamd ‘s’ op schijf 
aangemaakt. Het volgende comman¬ 
do dat u opgeeft luidt, ED s/startup- 
sequence. Nu komt u in een editor te¬ 
recht waar u uw commando’s in kunt 
typen welke uitgevoerd moeten wor¬ 
den tijdens het opstarten van de schijf. 
Stel dat u een eigen BASIC schijf wilt 
maken. Geef in de startup-sequence 
dan op ‘amigabasic'. U moet dan wel 
AmigaBASIC, en alle files die u verder 
nodig heeft, op deze schijf gekopieerd 
hebben. AmigaBASIC zal dan auto¬ 
matisch opgestart worden na het 
‘booten’ van de Amiga. 

Window mania in BASIC 

U heeft ongetwijfeld wel eens een 
Window geopend in BASIC. Leuk he, 
maar hij stond wel een beetje statisch 
op het scherm. Het WINDOW com¬ 
mando bied geen mogelijkheid om 
een Window te manipuleren nadat ze 
geopend is. Toch zijn hier wel moge¬ 
lijkheden vanuit BASIC voor. Nee, er 
zijn geen verborgen BASIC comman¬ 
do’s of iets van dien aard. Het ant¬ 
woord moet gezocht worden in een 
van de libraries. Met behulp van het 
commando LIBRARY kunt bepaalde 
library files, dit zijn files die u op uw 
EXTRAS schijf terug kunt vinden met 
de extensie ‘.bmap’, in uw BASIC pro¬ 
gramma ‘includen’. Zo ook met de file 
intuition.bmap . Het commando ‘LI¬ 
BRARY "intuition.library" opend de li¬ 
brary ‘intuition.bmap’. Hierin staan al¬ 
lerlei functies tot uw beschikking. Er 
zijn ook enkele die betrekking hebben 
op Windows. Houden we wel in ons 
achterhoofd dat WINDOW(7) een ge- 
heugenadres voorsteld waar de Wind¬ 
ow structuur is opgeslagen! OKE! 
WindowLimits%: hiermee veranderd 
u de vastgelegde grenswaarden van 
een Window. De functie aanroep luid 
als volgt; Fout%=WindowLi- 
mits%(WINDOW(7),minX,minY, 
maxX,maxY), 

waarbij Fout% 0 is als de aanroep niet 
geslaagd is. Vergeet niet dat Window- 
Limits een functie is en moet daarom 
van te voren aangegeven worden met 

DECLARE FUNCTION WindowLi- 
mits% LIBRARY. MoveWindow: hier¬ 


mee is het mogelijk het venster te ver¬ 
schuiven zonder gebruik te maken 
van de muis. De aanroep van Move¬ 
Window geschied met CALL aange¬ 
zien MoveWindow geen functie is. 
CALL MoveWindow(WINDOW(7), 
deltaX, deltaY). ‘deltaX’ En ‘deltaY’ 
stellen het aantal pixels voor dat het 
Window in respectievelijk de X- en de 
Y richting moet worden verschoven. 
SizeWindow: hiermee is het mogelijk 
de grootte van het Window te regelen 
zonder terug te moeten vallen op de 
muis. 

CALL SizeWindow(WINDOW(7), 
deltaX, deltaY). ‘deltaX’ Is hier weer 



het aantal pixels dat het Window moet 
worden vergroot of worden verkleind 
in x-richting. Voor de y-richting is ‘del¬ 
taY’ bedoeld. WindowToFront en 
WindowToBack zijn functies waarmee 
een Window naar de voorgrond -res¬ 
pectievelijk de achtergrond kan wor¬ 
den verplaatst. De aanroep luidt: 

CALL WindowToFront(WIND- 
OW(7)) 

en 

CALL WindowToBack(WINDOW(7)) 

Met deze gegevens in ons achter¬ 
hoofd kunnen we weer naar hartelust 
stoeien met Windows. 

Alternatief 

Is het u al eens overkomen dat u tekst 
wou afprinten op een locatie op het 
beeldscherm die u niet met het LOCA- 
TE commando kon bereiken? Goed, 
we hebben hier een afdoende oplos¬ 
sing voor. Het antwoord ligt weer in de 
hier net boven beschreven libraries. In 
de library ‘graphics.bmap’ zijn de 
functies ‘Text’, ‘Move’ en ‘SetAPen’ 
aanwezig waarmee snel en flexibel 
tekst op het beeldscherm te zetten is. 
Met behulp van de functie SetAPen(), 
let op hoe u het schrijft, kunt u de 
tekstkleur kiezen. De cijfers die u in¬ 
vult zijn afhankelijk van de diepte van 


het scherm. Dit wil zeggen, het maxi¬ 
male aantal kleuren dat u op dit beeld¬ 
scherm tevoorschijn kunt toveren. Het 
WorkBench scherm kent de waarden 
0, 1, 2 en 3. Ze kent dus ook maar 
maximaal 4 kleuren. De aanroep van 
SetAPen luidt: 

CALL SetAPen(WINDOW(8),kleur) 

Hier komt weer een andere pointer te 
pas. WINDOW(8) is een pointer naar 
de RastPort waarin het Window ligt. 
Met de functie Move() kunt u de posi¬ 
tie op het scherm bepalen waar u de 
tekst afgeprint wilt hebben. CALL 



Move(WINDOW(8),100,100) zorgt er 
voor dat de tekst, die met de functie 
Text() afgeprint wordt, op 100,100 ge¬ 
print wordt. Tenslotte is er dan nog de 
functie TextQ. Text() print, zoals het 
woord eigenlijk al zegt, de tekst op het 
beeldscherm. De aanroep van Text() 
luidt: 

CALL Text(WINDOW(8),pointer 
naar de string,lengte van de string) 

Deze pointer naar de tekststring geeft 
u door met behulp van het commando 
SADD() en de lengte met behulp van 
LEN(). Een voorbeeld: 

LIBRARY "graphics.library" 
RastPort&=WINDOW(8) 
tekst$="Commodore Info" 

CALL SetAPen(RastPort&,3) 

CALL Move(RastPort&,100,100) 

CALL Text(RastPort&,SADD(tekst$), 
len(tekst$) 

LIBRARY CLOSE 

Dit voorbeeld zorgt er voor dat de 
tekst ‘Commodore Info’ op positie 
100,100 in de kleur 3 wordt afgebeeld. 

Turbo-C 

C is al redelijk snel. Toch kan het voor¬ 
komen dat u routines schrijft die zo¬ 
veel snelheid nodig hebben dat u 
overweegt om ze maar in machineco- 
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de te schrijven. Dit is een zeer loffelijk 
streven. (Hoezo, wij zijn machinecode 
freaks!?!) Toch is er een manier om 
routines sneller uit te laten voeren en 
toch in C te blijven. Dit doet u door va¬ 
riabelen de geheugenklasse ‘register’ 
te geven. Hiermee zorgt u ervoor dat 
een variabele een van de 16 proces¬ 
sor registers toe bedeeld krijgt. Niet 
alle 16 kunnen gebruikt worden om 
systeem technische redenen dus het 
werkelijke aantal variabelen dat op 
deze manier kan worden gedecla¬ 
reerd is beperkt. Voor arbeidsintensie¬ 
ve routines echter is het zeer nuttig de 
meest gebruikte variabelen lokaal van 
de geheugenklasse register te laten 
zijn. 

Defecte programmatuur? 

Heeft u een Amiga 2000 of bezit u een 
Amiga 500 met een geheugenuitbrei- 
ding? Dan heeft u ongetwijfeld wel 
eens programma’s gehad die niet 
werkten. Om er voor te zorgen dat 
deze programma’s nu wel werken, 
even vooropgesteld dat u geen AF- 
SCHAKELBARE geheugen uitbrei¬ 
ding heeft, moet u het programma 
NOFASTMEM gebruiken. Dit pro¬ 
gramma kreeg u bijgeleverd, tijdens 
de aankoop van uw Amiga, op de EX¬ 
TRAS schijf. Door nu NOFASTMEM 
aan te klikken of door vanuit Amiga- 
DOS in te typen RUN NOFASTMEM 
zorgt u er voor dat het gehele FAST 
memory in beslag genomen wordt. Op 
deze manier worden de programma’s 
die na die tijd ingeladen worden, ge¬ 
dwongen om in het. CHIP memory te 
gaan zitten. Waarschijnlijk zullen de 
programma’s, enkele uitzonderingen 
daargelaten, wel werken. 

‘FONT’ mania 

We hebben het allemaal wel eens ge¬ 
had. Een superprogramma, tenminste 
dat vond je zelf dan, geschreven al¬ 
leen dat font dat ze gebruikten. Geen 
gezicht 1999! Wat er aan te doen. Al¬ 
lereerst zijn de include files libra- 
ries/diskfont.h en graphics/gfxba- 
se.h van belang. Deze dient u dus ze¬ 
ker te ‘inciuden’. De structures 
TextFont, GfxBase en IntuitionBase 
dienen VOOR de main() functie te 
worden gedeclareerd. DiskFontBase 
is geen structure maar is van het type 
ULONG en dient overeenkomstig te 
worden gedeclareerd. Verder moeten 
in het begin de libraries GfxBase, In¬ 
tuitionBase en DiskFontBase geo¬ 
pend worden. Nu zijn de start voor¬ 
waarden opgezet. Om nu een nieuw 
font te openen komt te structure Text- 



Attr aan bod. Met deze structure geeft 
u door aan wat voor eigenschappen 
het nieuwe font moet voldoen. In Tex- 
tAttr.ta-Name geeft u op hoe het font 
heet. Hierbij moet u de extensie ‘.font’ 
niet vergeten. TextAttr.ta-YSize geeft 
aan hoe groot het font is. U weet wel, 
in het voorbeeld van topaz.font zijn er 
twee groottes, namelijk 8 en 9. In Tex- 
tAttr.ta-Style definieert u wat voor stijl 
het font moet hebben. Gebruik hier 
voor de volgende constanten: 

FSF-NORMAL = geen speciale stijl, 
FSF-UNDERLINED = underline 
FSF-BOLD = vet 
FSF-ITALICS = cursief. 

TextAttr.ta-Flags tenslotte geeft aan 
waar het font gevonden kan worden. 
FPF-ROMFONT betekend dat het 
font in het geheugen gevonden kan 
worden en FPF-DISKFONT geeft aan 
dat het font op disk moet worden ge¬ 
zocht. Dan dient het font geopend te 
worden. Afhankelijk van wat u in Tex¬ 
tAttr.ta-Flags gedefinieerd heeft, dus 
ROMFONT of DISKFONT, opend u 
het font met TextFont=Open- 
Font(&TextAttr) 
of met 

TextFont=OpenDiskFont(&TextAttr) 

Hierbij dient TextFont van het type 
struct TextFont te zijn. Een klein voor¬ 
beeld,: 

struct TextAttr ‘tekst; 

struct TextFont ‘fout; 

tekst-ta-Name=(UBYTE 

*)"topaz.font"; 

tekst-ta-YSize=15; 

tekst-ta-Style=FSF-NORMAL; 

tekst-ta-Flags=FPF-DISKFONT; 

if((fout=(struct TextFont *) 

OpenDiskFont(tekst))==NULL) 

exit(FALSE); 

SetFont(lntuitionBase-ActiveWindow- 

RPort,fout); 

U ziet, we gebruikten ook nog de in¬ 
structie SetFont(). Hiermee zorgt u er 


voor dat de fontvermelding in de Rast- 
Port opgenomen wordt. Gevolg hier¬ 
van, alle met Text() afgeprinte tekst 
wordt in het nieuwe font afgebeeld. 

Super hires in BASIC 

Interlace. U kent de term wel. Hoe 
kunnen we nu een al toegekend 
scherm veranderen naar INTERLA¬ 
CE. En hoe kunnen we een dat zelfde 
scherm naar LORES toe veranderen. 
Hiervoor is een structuur, de ViewPort 
genaamd, belangrijk. Op het adres 
ViewPort + 32 zijn de modi, ofwel de 
eigenschappen van het scherm, van 
de ViewPort te vinden. Hierin wordt 
bitgewijs aangegeven of een scherm 
een HIRES of een LORES scherm is, 
of het SPRITES moet bevatten, etce- 
tera, etcetera. Dus door hier een bit 
aan te passen, wordt het beeldscherm 
zelf ook aangepast. Er is een maar. 
Als u dit gedaan heeft wil nog niet zeg¬ 
gen dat het ook goed werkt. Doordat u 
bijvoorbeeld een HIRES scherm om¬ 
zet naar een INTERLACE scherm 
gaat u twee keer zoveel geheugen ge¬ 
bruiken maar u vertelt niet aan het 
systeem dat het dat geheugen moet 
reserveren. Dit kan nare gevolgen 
hebben voor programma’s die in dit 
geheugen terecht komen. Maar 
mischien dat we nu iemand op het 
idee gebracht hebben om dit uit te 
zoeken. Nu volgt de routine om een 
INTERLACE scherm te maken. 

venster&=WINDOW(7) 

scherm&=PEEKL(venster&+46) 

viewport&=scherm&+44 

REM hoogte van het scherm op 400 

POKEW viewport&+26,400 

REM zet nu interlace aan 

oud%=PEEKW(viewport&+32) 

POKEW viewport&+32,oud% OR 4 

Oproep !!! 

Tot zover deze Tips & trucs aflevering. 
We hopen dat u met een van deze tips 
weer iets dichter bij het oplossen van 
uw programma probleem gekomen 
bent. Toch willen we deze rubriek 
meer voor de lezers maken. Dus als u 
tips, hints, trucs of suggesties heeft 
omtrent spelen, CLI-gebruik of u heeft 
kleine routines waarvan u denkt, ‘dat 
moet iedereen eigenlijk weten’, stuur 
ze op naar het hierboven vermelde 
adres. Dan rest ons niets meer dan u 
nog een gelukkig nieuwjaar te wensen 
en tot de volgende aflevering! 

JOHAN & JOHAN 
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De nieuwste Amiga Games 


Starglider 2 

Met Starglider 2 (bijna) echt de ruimte 
in. Een vervolg op Starglider kon niet 
uitblijven. Wereldberoemd en op de 
meeste computers te koop. Het spel 
bestond uit een soort horizon waar de 
meest vreemde vliegdingen, die van 
alle kanten in beeld kwamen en soms 
zelfs op je schoten, moesten worden 
geraakt met een laserkanon. Als er 
raak geschoten werd klapte het onge¬ 
lukkige toestel in tientallen stukken ui¬ 
teen. Maar nu het vervolg. ‘STARGLI¬ 
DER 2’ van Argonaut Software heeft 
als bijzondere extra een bijgeleverde 
muziekcassette. Waar het idee van¬ 
daan komt weten we niet maar steeds 
meer computerspel-verpakkingen be¬ 
vatten naast de speldisk een geluids¬ 
bandje. Hoe prachtig sommige com¬ 
puters het geluid tegenwoordig ook 



weergeven, er gaat nog steeds niets 
boven de klanken uit de luidspreker- 
boxen van een goede stereoinstalla- 
tie. Het is de bedoeling om de bijgele¬ 
verde band tijdens het spelen van het 
spel af te draaien. Prima geluiden! 
Aan het spel zelf is natuurlijk ook van 
alles gedaan om het nog aantrekkelij¬ 
ker te maken. Het alleen maar schie¬ 
ten op een horizon is vervangen door 
echte beweging in de ruimte en be¬ 
zoek aan verschillende planeten. Ui¬ 
teraard zijn er regelmatig onplezierige 
ontmoetingen tijdens de reis naar ‘het 
grote en zeer vijandige doel’. Praten 
helpt helaas niets dus vinger aan de 
vuurknop! Het doel van de reis is een 
veraf hangende planeet waar sombe¬ 
re figuren uiterst sombere plannen 
smeden om de thuishaven te vernieti¬ 


gen. Ontdek die planeet en maak met 
het nodige vuurwerk duidelijk dat je 
het met die sombere plannen niet 
eens bent. Tijdens de ruimtereis kun 
je nu en dan de bewapening van je 
ruimtescheepje aanvullen. Geniet van 
de mooie manier waarop in steeds 
meer spellen de ‘plaatjes’ van het spel 
op het beedscherm worden weerge¬ 
geven. Hoekige, steeds van vorm ver¬ 
anderende vlakken, de golvende be¬ 
weging van oppervlakten en de bewe¬ 
ging van figuren daarop! Het lijkt met 
een eerste blik nergens op maar na 
zeer korte tijd heeft het een bijzonde¬ 
re aantrekkingskracht. Soms bekruipt 
ons het gevoel dat de spelprogram- 
meurs alles, dus ook de mooie grafi¬ 
sche spelvormgeving, van elkaar jat¬ 
ten. Dezelfde stijl komt de laatste tijd 
namelijk in veel spellen voor. Maar het 
is prachtig! Starglider 2 is een spel dat 
we ondanks de prijs kunnen aanra¬ 
den. Je moet inderdaad wel een hele¬ 
boel kranten of ander werk verzetten 
voor je het spel kunt kopen. De prijs is 
ƒ 90,- voor zowel Atari ST als Amiga 
500. (IBM-compatibelen: ƒ 70,-). 

Out Run 

Een mooie wagen die supersnel door 
oneindig laagland scheurt. Jij bent 
koel, de motor heet, het blondje naast 
je prachtig, de tank vol benzine en de 
snelwegen liggen voor je... de rest is 
aan jou. In Nederland is de wagen 
waar we het over hebben (de rest is 
wel mogelijk!) eigenlijk ongeschikt om 
je, met de snelheid die deze auto ver¬ 
wacht, te verplaatsen. Smalle, korte 
en bochtige wegen maken het bijna 
onmogelijk om het gaspedaal nou 
eens even vol tegen de bodem van de 
auto te drukken. De 200 km per uur 
die je op die manier uit de wagen haalt 
worden hooguit gebruikt om aan ach¬ 
tervolgende politiewagens te ontko¬ 
men. Het gaat hier dan ook om de pri¬ 
ma sportwagen in het computerspel 
‘OUT RUN’ van Sega uitgegeven door 
US Gold. Een racespel van goede 
kwaliteit. De Sega-racecomputer 
staat al een tijdje in verschillende 
speelhallen in Nederland. Een flink 
apparaat uitgerust met een heus race- 
wagen-stoel en -stuur en waarmee 
zelfs de beweging in de bochten wordt 
nagebootst. Dit spel is thans ook voor 
de gewone computers uitgebracht 
waarbij het stuur moet worden vervan¬ 
gen door de speelpook (joystick). Er 


zijn vijf mogelijkheden om de finish 
binnen de tijd te bereiken. Er moeten 
vijf trajecten worden afgelegd. In het 
totaal zijn er vijftien velden waar de 
speler, met de immer aanwezige blon¬ 
de aan zijn zijde, zich kan uitleven. 
Misschien komt er nog eens een spel 
waarin het mogelijk is van plaats te 
wisselen. Er zijn toch zeker ook vrou¬ 
welijke wegpiraten? Leuk spel van US 
Gold voor Atari ST ƒ 70.-, Amiga 500 
ƒ 80.-, Commodore 64 cassette ƒ 30.- 
, en disk ƒ 40.-. 

Virus 

WHAAA...VIRUS. Gelukkig gaat het 
hier niet om het zo gevreesde compu¬ 
tervirus. ‘VIRUS’ is een onnavolgbaar 
computerspel van firebird voor ver¬ 
schillende computers. Moeilijk, ver¬ 
slavend en mooi. Onze speltester is 
even verboden dit spel in de computer 



Virus van Firebird 


te laden. De reden is duidelijk. Er komt 
de laatste tijd weinig meer van zijn 
huiswerk terecht! Voor het verbod 
hebben wij vol verbazing en bewonde¬ 
ring naar de bewegingen van het 
ruimtevaartuigje in dit spel zitten kij¬ 
ken. De manier waarop het oppervlak 
van een of andere planeet over het 
beeldscherm rolt, heuvels en dalen 
zijn perfect in beeld gebracht, ontlok¬ 
ken ooohhs... en aahhss...of ggrrrss.. 
als het toestel zich tegen een plotse¬ 
ling opdoemende heuvel te pletter 
vliegt. De bedoeling van het spel is 
eenvoudig. Opstijgen, vliegen en 
schieten. Vergis je niet! Razend moei¬ 
lijk! De bewapening waarmee vijandi¬ 
ge ruimteschepen worden betreden 
bestaat uit een laserkanon en doel- 
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zoekende raketten. Op het prachtige 
planeetoppervlak bevinden zich ook 
nare indringers die dienen te worden 
uitgeschakeld. Maar de meeste pun¬ 
ten levert het vernietigen van indrin¬ 
gende ruimteschepen op. Het spel is 
alleen met de computermuis of het 
toetsenbord te besturen! Moeilijk 
maar mooi spel voor de Amiga 500 
voor de prijs van ƒ 80.-. 

Carrier Command 

Voor de AMIGA 500 worden aan de lo¬ 
pende band nieuwe spellen uitge¬ 
bracht. Een heel mooi en bijzonder 
uitgebreid spel is CARRIER COM¬ 
MAND, gepresenteerd door Rainbird. 
We schrijven het jaar 2166. Een uit de 
hand lopend energieprobleem zal de 
gehele wereld lam leggen. Een nog 
meer uit de hand lopende oplossing 
van dat probleem, is de basis van dit 
computerspel. Geleerden en techneu¬ 
ten hebben namelijk twee volledig ge¬ 
automatiseerde en zwaar bewapende 
schepen ontworpen, zogeheten ‘fuel 
hunters’ om naar energie in elke bruik¬ 
bare vorm te zoeken. De bewapening 
is nodig om eventuele tegenstand van 
plaatselijke volken te breken. Het ge¬ 
bied, waar mogelijk de meeste ener¬ 
gie in aardlagen ligt opgelagen, lijkt de 
bodem onder een zuidelijke oceaan. 
Honderden vulkanische eilanden zijn 
de laatste tijd erg actief en ‘verspillen’ 
op die manier enorme hoeveelheden 
energie. Volgens de geleerden moet 
het mogelijk zijn deze energie onder 
controle te krijgen om de wereldwijde 
energiecrisis te helpen beteugelen. 
Maar alles loopt uit de hand... en moet 
dus geheim blijven. Waar gaat het al¬ 
lemaal om? Het eerste schip, dat is 
ontworpen om naar energie te zoe¬ 
ken, is volledig geautomatiseerd. Er is 
geen levende ziel aan boord. 

Dit schip, de ACC Omega, is door een 
geheime organisatie overgenomen en 
de computerprogramma’s aan boord 
van het schip zijn onder controle van 
een groep terroristen. Aan boord kan 
niemand ingrijpen. Het tweede schip, 
de ACC Epsilon, is om duidelijke rede¬ 
nen aangepast en heeft een menselij¬ 
ke kapitein aan boord. UI De bedoe¬ 
ling van het spel is duidelijk. Zoek de 
ACC Omega en neem het commando 
over! Maak gebruik van de bewape¬ 
ning, zoals vliegtuigen en patrouille- 
bootjes, en slimme strategie om dit 
doel zo snel mogelijk te bereiken. Het 
moet echt allemaal snel gaan, want de 
vijand neemt eiland na eiland in bezit. 
Het spel is bijzonder uitgebreid en 
geeft verschillende mogelijkheden om 
het doel te bereiken. De grafische 
plaatjes lijken op het eerste gezicht 


wat tegen te vallen, maar ze voldoen 
toch uitstekend als het spel eenmaal 
is gestart. Het is beslist geen eenvou¬ 
dig schietspel. De liefhebber van inge¬ 
wikkelde strategische spellen kan 
lang plezier hebben van Carrier Com¬ 
mand. De prijs is (Amiga 500) ƒ 89,-. 

Chubby Gristle 

De AMIGA 500 is een computer, die 
haast vanzelfsprekend flink meedeelt 
in het aanbod grappige spellen. 
CHUBBY GRISTLE is zo’n computer¬ 
spel, uitgebracht door Grandslam. 
Een morsige parkeerwachter heeft 
maar twee doelen in het leven: bon¬ 
nen uitschrijven voor foutparkeerders 
en eten. Dat uitdelen van bonnen 
moet je overigens met een flinke kor¬ 
rel zout nemen. Het eten daarentegen 
met een enorme schep slagroom. Hoe 
meer hoe beter... Chubby Gristle is 
een klassiek zogeheten platform-spel. 
Van verdieping naar verdieping stij¬ 
gen of dalen langs kettingen, roltrap¬ 
pen of gewoon springen. En maar 
eten en oppassen dat je alle gevaren 
ontwijkt. Een paar van die gevaren 
verschijnen in alle ellende, die de om¬ 
geving van een supermarkt met par¬ 
keergarage zo levendig maken. Wild 
rennende huisvaders en -moeders 
met boodschappenwagentjes, fiet¬ 
sende kinderen, die niet altijd opletten 
waar ze rijden en die je het verzame¬ 
len van voedsel bemoeilijken. Het is 
de bedoeling zo snel mogelijk een ton 
aan lichaamsgewicht te krijgen. Pas 
dan zit de dienst er op en kun je ein¬ 
delijk naar huis... om te gaan genieten 
van een flinke maaltijd. Leuk spel voor 
de Amiga voor een bedrag van ƒ 69,-; 
C-64 disk kost ƒ 49,-. 

Bubble Bobble 

Een leuk spel van Taito uit Japan is 
BUBBLE BOBBLE. Een disk met een 
heleboel luchtbellen-spelplezier. De 
spelers Bub en Bob moeten uit onder¬ 
aardse gewelven twee meisjes red¬ 
den, die daar naar toe zijn ontvoerd 
door een stel gemene 
heksen. Het spel draait, 
zoals al even aangege¬ 
ven, voor een belangrijk 
deel om luchtbellen. 

Luchtbellen, die van alles 
kunnen doen en van alles 
kunnen herbergen. De 
bellen bevatten hulpmid¬ 
delen om tegenstanders 
te verslaan, zoals vuur, 
water en bliksem of let¬ 
ters die moeten worden 
verzameld tot er een 
compleet woord is ont¬ 


staan. Als speler Bub of Bob (aan¬ 
doenlijke kleine draakjes) spuug je in 
plaats van vuur dus luchtbellen uit. 
Die luchtbellen nemen een tegenstan¬ 
der in zich op en verplaatsen deze.... 
tot de luchtbel barst natuurlijk. De te¬ 
genstanders zijn, zoals in ieder com¬ 
puterspel, groot in aantal en gemeen 
in gedrag. Veld na veld blijven ze het 
de speler moeilijk maken. Gelukkig 
liggen er onderweg naar de te bevrij¬ 
den meisjes nogal wat hulpmiddelen. 
Zo kun je je snelheid wat opvoeren, 
spring je ineens een paar etages ver¬ 
der of krijg je de beschikking over ex¬ 
tra voedsel. Er zijn 57 soorten items, 
die je van voedsel of punten voorzien. 
Ga er maar even voor zitten. 

Het spel Bubble Bobble is met twee 
spelers te spelen, bevat honderd 
speelvelden en kost als Amiga disk 
ƒ 79,- en voor de C-64 cassette be¬ 
taalt men ƒ 35,-, een disk kost ƒ 49,-. 

Trivial Pursuit 

Waar ze al een computerspel van ma¬ 
ken! Als gezinsspel onder de eettafel- 
lamp neemt TRIVIAL PERSUIT’ vol¬ 
gens de uitgevers van gezelschaps¬ 
spellen een vooraanstaande plaats in! 
Dit moet voor de ontwerpers van com¬ 
puterspellen een aanleiding zijn ge¬ 
weest om dit spel ook op de computer 
uit te brengen. Of het net zo'n succes 
wordt....? In de eerste plaats even de 
bedoeling van het spel. Trivial Persuit 
gaat om het toetsen van tamelijk alle¬ 
daagse tot zeer speciale kennis. Om 
een voorbeeld te geven: "Hoe oud 
wordt een olifant gemiddeld?" of "Hoe 
vaak per jaar kan een konijn jongen 
krijgen?" of deze: "Wie was de twee¬ 
de mens op de maan?" Weet u op alle 
drie de vragen de juiste antwoorden? 
Ik niet! Als tweede moeten we melden 
dat het spel (helaas?) nog niet in het 
Nederlands en zelfs nog niet in Neder¬ 
land is verschenen. Kortom, laten we 
de computer wat dit soort spellen be¬ 
treft maar met rust laten en gewoon 
gezellig met de hele familie om de eet¬ 
tafel kruipen. 
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PRINTOUT Amiqa met o.a. Slang 

AMIGA-listings 


U kunt de volgende listings probleemloos overtikken. 
U moet alles achter elkaar intypen tot U tegenkomt 
[RETURN], Dit typt U niet over maat moet worden uit¬ 
gevoerd. Hier gebruikt U dus de RETURN-toets. 
NIET DE HAKEN EN DE TEKST RETURN OVERTY¬ 
PEN !!! 


Label base 


Het programma labelbase is geschreven door Martin 
Koel uit Heerhugowaard. Het is een utility om adres¬ 
stickers uit te printen. Adresboekjes zijn hiermee ver¬ 
leden tijd. Het geheel werkt met AmigaBasic. Voor 
dat U dit programma gaat gebruiken moet U eerst 
vanuit de CLI intypen: MakeDir DisknaarmOpslag 


CHDIR "dfO:"[RETURN] 

CHDIR "opslag"[RETURN] 
start:[RETURN] 

ON ERROR GOTO kijk[RETURN] 

CLS [RETURN] 

PRINT "Martin's LabelBase Final version 

, voor Commodore info."[RETURN] 

PRINT [RETURN] 

PRINT "Directory Files.1" [RETURN] 

PRINT "Laden nieuwe File.2" [RETURN] 

PRINT "Opslaan nieuwe File.3"[RETURN] 

PRINT "Printen File.4"[RETURN] 

PRINT "Verwijderen File.5 


[RETURN] 


'Einde.6" [RETURN] 


PRINT [RETURN] 


PRINT "Naam.nm$ [RETURN] 

PRINT "Adres.ad$ [RETURN] 

PRINT "Woonplaats ...";pl$[RETURN] 
PRINT [RETURN] 

PRINT "Kies maar uitINPUT ant 
[RETURN] 

[RETURN] 

IF ant=l THEN direct[RETURN] 

IF ant=2 THEN loadfi[RETURN] 

IF ant=3 THEN opslaa[RETURN] 

IF ant=4 THEN printe[RETURN] 

IF ant=5 THEN verwij[RETURN] 

IF ant=6 THEN einde[RETURN] 

BEEP:GOTO start[RETURN] 

[RETURN] 

direct:[RETURN] 

CLS[RETURN] 

PRINT "Directory van Opslag..."[RET 
PRINT [RETURN] 

FILES [RETURN] 

PRINT [RETURN] 

INPUT "Return";r[RETURN] 

GOTO start[RETURN] 

[RETURN] 

loadfi:[RETURN] 

CLS[RETURN] 

PRINT "Laden van file...."[RETURN] 
[RETURN] 

PRINT [RETURN] 

INPUT "Naam filenf$[RETURN] 

CLOSE#l[RETURN] 

OPEN "I",#l,nf$[RETURN] 


WHILE NOT EOF(1)[RETURN] 

INPUT #1,nm$,ad$,pl$[RETURN] 
nvprtikkpn WEND [RETURN] 

. i tpnpnkomt INPUT " File dn 9 aladen •••"' r [RETURN] 

U tegenkomt start[ return] 

-TMDmT t [RETURN] 

_TURN-tOetS. opslaa: [RETURN] 

-iN OVERTY- CLS [RETURN] 

PRINT "Opslaan nieuwe file...."[RETURN] 
PRINT [RETURN] 

[RETURN] 

INPUT "Naam file";nf$[RETURN] 

INPUT "Naam persnm$[RETURN] 

INPUT "Adres....";ad$[RETURN] 
n door Martin input "Plaats..." ;pi$ [return] 
ity om adres- PRINT [Return] 

hiprmpp ver- INPUT " Saven (j/n) ";jn$ [RETURN] 
laRacir \/nnr IF ^ n$ = " n ” THEN G0T0 start [RETURN] 

lacasic. voor CL0SE #1 [return] 

moet U eerst OPEN nf $ FO r output as #1 [return] 

TtOpslag WHITE #1, nm$, ad$, pl$ [RETURN] 

CLOSE #1[RETURN] 
i$ = ".info"[RETURN] 
gt$ = nf$+i$[RETURN] 

KILL gt$[RETURN] 

GOTO start[RETURN] 

[RETURN] 

[RETURN] 
version [RETURN] 

JRN] CLOSE #1[RETURN] 

printe:[RETURN] 

L"[RETURN] CLS[RETURN] 

2" [RETURN] PRINT "Printen file."[RETURN] 

3"[RETURN] PRINT [RETURN] 

1" [RETURN] ne: [RETURN] 

5 PRINT "Stel printer op goede hoogte en 

druk dan op return."[RETURN] 

5"[RETURN] BEEP[RETURN] 

INPUT r[RETURN] 

I] [RETURN] 

4] OPEN "lptl:" FOR OUTPUT AS #2[RETURN] 

4] d$ = CHR$(27)+"[2"+CHR$(34)+"z"[RETURN] 

PRINT #2,""[RETURN] 
ant PRINT #2, d$+nm$[RETURN] 

PRINT #2, d$+ad$[RETURN] 

PRINT #2, d$+pl$[RETURN] 

PRINT #2,""[RETURN] 

CLOSE #2[RETURN] 

INPUT "nog een keer(j/n)jn$[RETURN] 

IF jn$ = "j" THEN GOTO ne[RETURN] 

GOTO start[RETURN] 

[RETURN] 
kijk:[RETURN] 

CLS[RETURN] 

IF ERR = 53 THEN PRINT "File niet gevond 
en."[RETURN] 

[RETURN] IF ERR = 57 THEN PRINT "Device I/O error 

!"[RETURN] 

IF ERR = 61 THEN PRINT "Disk vol error!" 
[RETURN] 

IF ERR = 58 THEN PRINT "Bestaat al" 
[RETURN] 

IF ERR = 68 THEN PRINT "Drive niet klaar 
."[RETURN] 

PRINT "Error!,druk op een toets"[RETURN] 


"File niet gevond 
"Device I/O error 


"Disk vol error!" 


"Bestaat al" 


"Drive niet klaar 


gett:[RETURN] 
a$=INKEY$:IF a$ ="" 
a$ = ""[RETURN] 
[RETURN] 

GOTO start[RETURN] 
[RETURN] 


THEN gett[RETURN] 






























." [RETURN] 


einde:[RETURN] 

CLS[RETURN] 

INPUT "Weet u het zeker(j/n)jn$[RETURN] 
IF jn$ = "j" THEN CHDIR "dfO:" :CLS:END 
[RETURN] 

GOTO start[RETURN] 

[RETURN] 

verwij:[RETURN] 

CLS[RETURN] 

PRINT "Verwijderen van File ..."[RETURN] 
PRINT [RETURN] 

INPUT "Naam..";naam$[RETURN] 

INPUT "Zeker weten (j/n)??";jn$[RETURN] 

IF jn$ = "n" THEN start[RETURN] 

KILL naam$[RETURN] 

GOTO start [RETURN] 

Einde listinq Labelbase 


Elektrische schema’s tekenen 


Met behulp van dit programma kunt U elektrische 
schema’s tekenen. Het programma is volledig 
t menugestuurd. Bij het saven, loaden en printen van 
1 een tekening moet U even wachten tot U de "beep" 
j toon heeft gehoord. Bij een tekst moet eerst de hoog- 
I te en breedte worden ingevoerd daarna pas de plaats 
: aanklikken. Bij dit programma is naast Amiga-basic 
; ook noodzakelijk Graphics- en exec.library 
Het is een programma van Luc De Cock uit Belgie. 

: REM ****************** * SCHEMATEKENEN* * * 
*****************[RETURN] 

: REM * door Luc De Cock - Haacht (B 

elgie) *[RETURN] 

1 REM *************Graphics.bmap noodzakel 
! ijk!************[RETURN] 
i CLEAR ,25000[RETURN] 

CLEAR ,90000&[RETURN] 

; DIM letter%(140),symbool%(140),w$(10),v 
ol% (20230) [RETURN] 

w$(1)="1":w$(2)="1":w$(3)="& ":w$(4)=" 

; & ":w$(5) ="1 "[RETURN] 

| kl=l[RETURN] 

: LIBRARY "graphics.library"[RETURN] 

ON MENU GOSUB leesmenu[RETURN] 

MENU ON[RETURN] 

MENU 1,0,1,"Stop":MENU 1,1,1,"ja "[RE 
TURN] 

MENU 2,0,1,"kleur ":MENU 2,1,1," wit " 
:MENU 2,2,2," zwart"[RETURN] 

MENU 3,0,1,"opties ":MENU 3,1,1,"lijnen 
":MENU 3,2,1,"punten 
"[RETURN] 

MENU 3,3,1,"ellipsen ":MENU 3, 

4.1, "wis scherm ":MENU 3,5,1,"op 

vullen "[RETURN] 

MENU 3,6,1,"rechthoeken ":MENU 3, 

7.1, "opgevulde rechthoek"[RETURN] 

MENU 3,8,1,"cirkels ":MENU 3, 

9.1, "tekst ":MENU 3,10,1,"a 

fdrukken "[RETURN] 

MENU 3,11,1,"saven ":MENU 3 

,12,1,"laden "[RETURN] 

MENU 3,13,1,"scherm nemen ":MENU 3 

,14,1,"scherm ZET"[RETURN] 

MENU 3,15,1,"scherm OR":MENU 3 


. 16 , 1 ,"scherm 


AND"[RETURN] 


MENU 3,17,1,"scherm INVERSE"[RETURN] 

MENU 4,0,1,"komponeten 1"[RETURN] 

FOR x=l TO 14[RETURN] 

READ a$[RETURN] 

MENU 4,x,1,LEFT$(a$+SPACE$(10),17)[RETURN] 
NEXT x[RETURN] 

MENU 5,0,1,"komponenten 2"[RETURN] 

FOR x=l TO 9[RETURN] 

READ a$[RETURN] 

MENU 5,x,1,LEFT$(a$+SPACE$(10),17)[RETURN] 
NEXT x[RETURN] 

MENU 6,0,1,"IC's + poorten"[RETURN] 

FOR x=l TO 14[RETURN] 

READ a$[RETURN] 

MENU 6,x,1,LEFT$(a$+SPACE$(12),17)[RETURN] 
NEXT x:MENU 6,9,0[RETURN] 

MENU OFF[RETURN] 

SCREEN 3,640,256,1,2:WINDOW 
2,,,16,3[RETURN] 

PALETTE 1,0,0,0:PALETTE 0,1,1,1 [RETURN] 

CLS:GOSUB afbak:BEEP[RETURN] 

leesmenu:[RETURN] 

a=MENU(0)[RETURN] 

azerty:[RETURN] 

b=MENU(1)[RETURN] 

IF a=l AND b=l THEN MENU RESET:SCREEN CL 
OSE 3:LIBRARY CLOSE:END[RETURN] 

IF a=3 AND b=4 THEN CALL uit: CLS : GOSUB a 
fbak:CALL aan:GOTO leesmenu[RETURN] 

IF a=2 AND b0 THEN[RETURN] 

MENU 2,kl+1,1[RETURN] 
kl=b-l[RETURN] 

MENU 2,kl+1,2[RETURN] 
uit[RETURN] 

GOSUB afbak[RETURN] 
aan[RETURN] 

GOTO leesmenu[RETURN] 

END IF[RETURN] 

IF a=3 AND b0 THEN GOSUB opties[RETURN] 

IF a=4 AND b0 THEN GOSUB kompol[RETURN] 

IF a=5 AND b0 THEN GOSUB kompo2[RETURN] 

IF a=6 AND b0 THEN GOSUB ic[RETURN] 

GOTO leesmenu[RETURN] 
opties:[RETURN] 

IF b=9 THEN aantal=0[RETURN] 

IF bl3 THEN zetsch[RETURN] 

ON b GOTO lijnen,punten,ellipsen,,opvull 
en,rechthoek,opgevulrecht,cirkels,tekst, 
drukaf,schrijven,laden,neemsch[RETURN] 

GOTO leesmenu[RETURN] 
laden:[RETURN] 

WINDOW 4,"Laden",(0,0)-(320,50),0,3:LOCA 
TE 3,1:PRINT "Wacht tot u een biep hoort 
alvorens":PRINT " iets te kiezen"[RETURN] 
LOCATE 1,1:LINE INPUT "Geef naam - ";a$ 
[RETURN] 

WINDOW CLOSE 4:WINDOW OUTPUT 2[RETURN] 

OPEN a$ FOR INPUT AS #1 LEN=2048[RETURN] 

FOR x=0 TO 20230[RETURN] 

vol%(x)=CVI(INPUT$(4,1))[RETURN] 

NEXT x:CLOSE #1[RETURN] 

BEEP:PUT (0,0),vol%,PSET:RETURN [RETURN] 
schrijven:[RETURN] 

WINDOW 4,"Schrijven", (0,0)-(320, 50) ,0,3 
[RETURN] 

LOCATE 3,1:PRINT "Wacht tot u een biep 
hoort alvorens" .-PRINT "iets te kiezen" 
[RETURN] 

LOCATE 1,1:LINE INPUT "Geef naam - ";a$ 
[RETURN] 

WINDOW CLOSE 4:WINDOW OUTPUT 2[RETURN] 













print-out print-out print-out print-out print-out 


\ GET (0,0)-(631,251),vol%[RETURN] 
j OPEN a$ FOR OUTPUT AS #1 LEN=2048[RETURN] 
| FOR x=0 TO 20230[RETURN] 

| PRINT #1,MKI$(vol%(x));[RETURN] 

| NEXT x:CLOSE #1[RETURN] 

I BEEP:RETURN [RETURN] 
ij kompol: [RETURN] 

I aan[RETURN] 

| a=MOUSE(0)[RETURN] 
j x=MOUSE(1)[RETURN] 
j y=MOUSE(2)[RETURN] 

I v=MENU(0)[RETURN] 

I GOSUB kompoleesl[RETURN] 

I: GOSUB kompoleesl [RETURN] 

IF v THEN a=v:CALL aan:RETURN azerty 
| [RETURN] 

I IF a=0 THEN kompol[RETURN] 

| uit[RETURN] 

j GOSUB kompoleesl[RETURN] 
j aan[RETURN] 

I FOR z=0 TO 100:NEXT z[RETURN] 

| a=MOUSE(0):a=MOUSE(0)[RETURN] 
j GOTO kompol[RETURN] 
j kompoleesl:[RETURN] 

| ON b GOSUB wh,wv,coh,cov,sph,spv,dib,dio 
,dir,dil,npn,pnp,trans,brugg[RETURN] 

[ RETURN[RETURN] 

I kompo2:[RETURN] 
j aan[RETURN] 
j a=MOUSE(0)[RETURN] 

| x=MOUSE(1)[RETURN] 
i y=MOUSE(2)[RETURN] 
j v=MENU(0) [RETURN] 

i GOSUB kompolees2[RETURN] 

\ GOSUB kompolees2[RETURN] 

I IF v THEN a=v : CALL aan:RETURN azerty 
! [RETURN] 

ii IF a=0 THEN kompo2 [RETURN] 

! uit[RETURN] 

I GOSUB kompolees2[RETURN] 

s IF b=4 THEN PAINT (x-2,y-2),kl,kl:PAINT 
| (x+2,y+2),kl,kl[RETURN] 

| aan[RETURN] 

i FOR z=0 TO 100:NEXT z[RETURN] 

| a=MOUSE(0):a=MOUSE(0)[RETURN] 

I GOTO kompo2[RETURN] 

J kompolees2:[RETURN] 

j ON b GOSUB bat,schak,vepu,sopu,verst, 
led,ech,ecv,mas[RETURN] 

I RETURN[RETURN] 

| ic:[RETURN] 

| uit[RETURN] 

| IF b9 THEN[RETURN] 

\ GET (0,0)-(16, 8) , letter%[RETURN] 

I LOCATE 1,1:PRINT w$(b-9)[RETURN] 

I GET (0, 0) -(15, 7) , symbool%[RETURN] 
j PUT (0,0),letter%,PSET[RETURN] 

; END IF[RETURN] 

; iel: [RETURN] 

; aan[RETURN] 

! a=MOUSE(0)[RETURN] 

| x=MOUSE(1)[RETURN] 

I y=MOUSE(2)[RETURN] 

| V=MENU(0)[RETURN] 

| IF b9 THEN PUT (x+10,y+2),symbool% 

I [RETURN] 

| GOSUB idees [RETURN] 

: IF b9 THEN PUT (x+10,y+2),symbool% 

! [RETURN] 

1 GOSUB idees [RETURN] 

| IF V THEN a=v:CALL aan:RETURN azerty 


[RETURN] 

IF a=0 THEN iel[RETURN] 
uit[RETURN] 

IF b9 THEN PUT (x+10,y+2),symbool%,OR 
[RETURN] 

GOSUB idees [RETURN] 
aan[RETURN] 

FOR z=0 TO 100:NEXT z[RETURN] 
a=MOUSE(0):a=MOUSE(0)[RETURN] 

GOTO iel[RETURN] 
idees : [RETURN] 

ON b GOSUB icvhl4, icwl4, icvhl6, icwl6, i 
chl4, icvl4,ichl6,icvl6,niets,pOR,pNOR,p 
AND,pNAND,pinv[RETURN] 

RETURN[RETURN] 

[RETURN] 

lijnen:[RETURN] 
aan[RETURN] 

C=MOUSE(0)[RETURN] 
x=MOUSE(1)[RETURN] 
y=MOUSE(2)[RETURN] 

V=MENU(0) [RETURN] 

IF v THEN a=v:CALL aan:RETURN azerty 
[RETURN] 

IF c=0 THEN lijnen[RETURN] 
bmouse:[RETURN] 
c=MOUSE(0)[RETURN] 
xx=MOUSE(1)[RETURN] 
yy=MOUSE(2)[RETURN] 

LINE (x, y)-(xx,yy) ,kl[RETURN] 

LINE (x, y) - (xx, yy) , kl [RETURN] 

IF c0 THEN bmouse[RETURN] 
uit[RETURN] 

LINE (x,y)-(xx,yy),kl[RETURN] 

FOR z=0 TO 100:NEXT z[RETURN] 
aan[RETURN] 

GOTO lijnen[RETURN] 
punten:[RETURN] 
uit[RETURN] 
a=MOUSE(0)[RETURN] 
x=MOUSE(1)[RETURN] 
y=MOUSE(2)[RETURN] 
v=MENU(0)[RETURN] 

IF v THEN a=v:CALL aan:RETURN azerty 
[RETURN] 

IF a=0 THEN punten[RETURN] 
puntlees:[RETURN] 
a=MOUSE(0)[RETURN] 
xx=MOUSE(l)[RETURN] 
yy=MOUSE(2)[RETURN] 

IF a0 THEN LINE (x,y)-(xx,yy),kl:x=xx: 
y=yy:GOTO puntlees[RETURN] 

GOTO punten[RETURN] 
opvullen:[RETURN] 
uit[RETURN] 
a=MOUSE(0)[RETURN] 
x=MOUSE(1)[RETURN] 
y=MOUSE(2)[RETURN] 
v=MENU(0) [RETURN] 

IF v THEN a=v:CALL aan:RETURN azerty 
[RETURN] 

IF a=0 THEN opvullen[RETURN] 

GOSUB afbak[RETURN] 

PAINT (x,y),kl,kl[RETURN] 

GOTO opvullen[RETURN] 
rechthoek:[RETURN] 
aan[RETURN] 
c=MOUSE(0)[RETURN] 
x=MOUSE(1)[RETURN] 
y=MOUSE(2)[RETURN] 
v=MENU(0) [RETURN] 















LINE (O, y) - (640, y) , kl :LINE (x, 0) (x, 256) 

, kl[RETURN] 

LINE (O, y)-(640, y) , kl:LINE (x,0) (x,256) 

,kl[RETURN] 

XF v THEN a=v:CALL aan:RETURN azerty 
[RETURN] 

IF c=0 THEN rechthoek[RETURN] 
smouse:[RETURN] 
c=MOUSE(0)[RETURN] 
xx=MOUSE(1)[RETURN] 
yy=MOUSE(2)[RETURN] 

LINE (x,y)-(xx,yy),kl,b[RETURN] 

LINE (x,y)-(xx,yy),kl,b[RETURN] 

IF cO THEN smouse[RETURN] 
uit[RETURN] 

LINE (x, y)-(xx,yy) ,kl, b[RETURN] 

FOR z=0 TO 100:NEXT z[RETURN] 
aan[RETURN] 

GOTO rechthoek[RETURN] 
opgevulrecht:[RETURN] 
aan[RETURN] 
c=MOUSE(0)[RETURN] 
x=MOUSE(l)[RETURN] 
y=MOUSE(2)[RETURN] 
v=MENU(0)[RETURN] 

LINE (0, y)-(640,y),kl:LINE (x,0)-(x,256) 

,kl[RETURN] 

LINE ( 0 ,y)-( 640 ,y),kl:LINE (x,0)-(x,256) 

,kl[RETURN] 

IF v THEN a=v:CALL aan:RETURN azerty 
[RETURN] 

IF c=0 THEN opgevulrecht[RETURN] 
zmouse:[RETURN] 
c=MOUSE(0)[RETURN] 
xx=MOUSE(l)[RETURN] 
yy=MOUSE(2)[RETURN] 

LINE (x, y)-(xx,yy),kl,bf[RETURN] 

LINE (x,y)~(xx,yy),kl,bf[RETURN] 

IF c0 THEN zmouse[RETURN] 
uit[RETURN] 

LINE (x, y) - (xx, yy) , kl, bf [RETURN] 

FOR z = 0 TO 100:NEXT z[RETURN] 
aan[RETURN] 

GOTO opgevulrecht[RETURN] 
ellipsen:[RETURN] 
aan[RETURN] 
c=MOUSE(0)[RETURN] 
x=MOUSE(1)[RETURN] 
y=MOUSE(2)[RETURN] 
v=MENU(0)[RETURN] 

LINE (0, y) - (640, y) , kl :LINE (x, 0) - (x, 256) 
, kl[RETURN] 

LINE (0,y)-(640,y),kl:LINE (x,0)-(x,256) 
,kl[RETURN] 

IF V THEN a=v:CALL aan: RETURN azerty 
[RETURN] 

IF c=0 THEN ellipsen[RETURN] 
wmouse:[RETURN] 

C=MOUSE(0)[RETURN] 
xx=MOUSE(1)[RETURN] 
yy=MOUSE(2)[RETURN] 

CIRCLE (x,y),ABS(xx-x),kl,,,ABS(yy/y) 

! [RETURN] , v 

CIRCLE (x,y),ABS(xx-x),kl,,,ABS(yy/y) 

[RETURN] 

IF c0 THEN wmouse[RETURN] 
uit[RETURN] 

CIRCLE (x,y),ABS(xx-x),kl,,,ABS(yy/y) 

, [RETURN] 

FOR z=0 TO 100:NEXT z[RETURN] 
aan[RETURN] 


GOTO ellipsen[RETURN] 
cirkels:[RETURN] 
aan[RETURN] 
c=MOUSE(0)[RETURN] 
x=MOUSE(1)[RETURN] 
y=MOUSE(2)[RETURN] 
v=MENU(0)[RETURN] 

LINE ( 0 ,y)-( 640 ,y),kl:LINE (x,0)-(x,256) 

,kl[RETURN] 

LINE ( 0 ,y)-( 640 ,y),kl:LINE (x,0) (x,256) 

,kl[RETURN] 

IF v THEN a=v:CALL aan:RETURN azerty 
[RETURN] 

IF c=0 THEN cirkels[RETURN] 
vmouse:[RETURN] 
c=MOUSE(0)[RETURN] 
xx=MOUSE(l)[RETURN] 
yy=MOUSE(2)[RETURN] 

CIRCLE (x, y) ,ABS (xx-x) ,kl[RETURN] 

CIRCLE (x,y),ABS(xx-x),kl[RETURN] 

IF c0 THEN vmouse[RETURN] 
uit[RETURN] 

CIRCLE (x,y),ABS(xx-x),kl[RETURN] 

FOR z=0 TO 100:NEXT z[RETURN] 
aan[RETURN] 

GOTO cirkels[RETURN] 
neemsch:[RETURN] 

c=MOUSE(0):x=MOUSE(1):y=MOUSE(2):v=MENU( 

0)[RETURN] „ „ 

LINE (x, 0)-(x, 256),kl:LINE (0 , y)-(640,y) 

,kl[RETURN] 

LINE (x,0)-(x,256),kl:LINE (0,y)-(640,y) 

,kl[RETURN] 

IF v THEN a=v:CALL aan:RETURN azerty 
[RETURN] 

IF c=0 THEN neemsch[RETURN] 
neemt.: [RETURN] 

c=MOUSE(0):xx=MOUSE(l):yy=MOUSE(2) 

[RETURN] 

LINE (x,y)-(xx,yy) ,kl, b[RETURN] 

LINE (x,y)-(xx,yy),kl,b[RETURN] 

IF c0 THEN neemm:[RETURN] 
uit[RETURN] 

GET (x, y) - (xx, yy) , vol% [RETURN] 

FOR z=0 TO 100:NEXT z[RETURN] 
aan[RETURN] 

RETURN[RETURN] 
zetsch:[RETURN] 

c=MOU SE(0) :x=MOUSE(l) :y=MOUSE(2) :v-MENU( 
0)[RETURN] 
uit[RETURN] 

PUT (x,y),vol%:FOR z=0 TO 200:NEXT z 
[RETURN] 

PUT (x,y),vol%[RETURN] 
aan[RETURN] 

IF v THEN a=v:CALL aan:RETURN azerty 
[RETURN] 

IF c=0 THEN zetsch[RETURN] 
uit[RETURN] 

ON b-13 GOTO zet,of,en,uit[RETURN] 
zet:[RETURN] 

PUT (x,y),vol%,PSET:GOTO zetsch[RETURN] 
of:[RETURN] 

PUT (x,y),vol%,OR:GOTO zetsch[RETURN] 
en:[RETURN] 

PUT (x,y),vol%,AND:GOTO zetsch[RETURN] 
uit:[RETURN] 

PUT (x,y),vol%,PRESET:GOTO zetsch[RETURN] 
tekst:[RETURN] 
uit [RETURN] 

WINDOW 5, "tekst", (30,30)- (200,88 ),0,3 















[RETURN] 

PRINT "opnieuw veranderen"[RETURN] 

PRINT "van grootte tijdens"[RETURN] 

PRINT "invoeren van tekst,"[RETURN] 

PRINT "druk RETURN":PRINT [RETURN] 

INPUT "Breedte : "/breedte[RETURN] 

INPUT "Hoogte : hoogte[RETURN] 

WINDOW CLOSE 5:WIND0W OUTPUT 2[RETURN] 
uit[RETURN] 

IF aantalO THEN gaverder[RETURN] 

GET (0,0) -(8,8) , letter%[RETURN] 

gaverder:[RETURN] 

uit[RETURN] 

leestekst:[RETURN] 

c=MOUSE(0)[RETURN] 

x=MOUSE(l)[RETURN] 

y=MOUSE(2)[RETURN] 

V=MENU(0)[RETURN] 

IF v THEN a=v:CALL uit:PUT (0,0) ,letter% 

,PSET:CALL aan:RETURN azerty[RETURN] 

IF c=0 THEN leestekst[RETURN] 

FOR z=0 TO 30:c=MOUSE(0):NEXT z[RETURN] 

amouse:[RETURN] 

c=MOUSE(0)[RETURN] 

xx=MOUSE(1)[RETURN] 

yy=MOUSE(2)[RETURN] 

v=MENU(0)[RETURN] 

b$=INKEY$[RETURN] 

IF b$=CHR$(13) THEN aantal=l:GOTO tekst 
[RETURN] 

IF v THEN a=v:CALL uit:PUT (0,0),letter% 

,PSET:CALL aan:RETURN azerty[RETURN] 

IF b$"" AND b$CHR$(9) THEN tekstcont 
[RETURN] 

IF c=0 THEN amouse[RETURN] 
x—xx:y=yy[RETURN] 

GOTO amouse[RETURN] 
tekstcont:[RETURN] 
uit[RETURN] 

ZetTekst x,y,breedte,hoogte,kl,b$[RETURN] 
x=x+8*breedte[RETURN] 

FOR z=0 TO 30:c=MOUSE(0) :NEXT z[RETURN] 
GOTO amouse[RETURN] 

[RETURN] 
wh:[RETURN] 

LINE (x, y)-(x+8,y) ,kl:LINE (x+8,y-3)-(x+ 
26, y+3) , kl,b:LINE (x+2 6,y)-(x+34,y),kl: 
RETURN[RETURN] 
wv:[RETURN] 

LINE (x, y) - (x, y+8) , kl :LINE (x-3, y+8) - (x+ 
3,y+26),kl,b:LINE (x,y+26)-(x,y+34),kl: 
RETURN[RETURN] 
coh:[RETURN] 

LINE (x, y) - (x+8, y) , kl: LINE (x+8, y-6) - (x+ 
10,y+6),kl,bf:LINE (x+13,y-6)-(x+15,y+6) 
,kl,bf[RETURN] 

LINE (x+15,y)-(x+23,y),kl:RETURN[RETURN] 
cov:[RETURN] 

LINE (x, y)-(x,y+8),kl:LINE (x-6,y+8)-(x+ 
6,y+10),kl,bf:LINE (x-6,y+13)-(x+6,y+15) 

,kl,bf[RETURN] 

LINE (X,y+15)-(x,y+23),kl:RETURN[RETURN] 
sph:[RETURN] 

LINE (x, y) -(x+8, y),kl:LINE (x+8,y-3)-(x+ 
26,y+3),kl,bf:LINE (x+26,y)-(x+34,y),kl 
[RETURN] 

LINE (x+8,y-6)-(x+26,y-6),kl:RETURN 

[RETURN] 

spv:[RETURN] 

LINE (x,y)-(x,y+8),kl:LINE (x-3,y+8)-(x+ 
3,y+26),kl,bf:LINE (x,y+26)-(x,y+34),kl 


[RETURN] 

LINE (x+6,y+8)-(x+6,y+26),kl:RETURN 
[RETURN] 
dib:[RETURN] 

LINE (x,y)-(x,y+20),kl:LINE (x-4,y+8)-(x 
+4,y+8),kl:LINE (x,y+8)- (x-4,y+12),kl 
[RETURN] 

LINE - (x+4,y+12),kl:LINE -(x,y+8),kl: 
RETURN[RETURN] 
dio:[RETURN] 

LINE (x,y)-(x,y+20),kl:LINE (x-4,y+12)-( 
x+4,y+12),kl:LINE (x,y+12)-(x+4,y+8),kl 
[RETURN] 

LINE -(x-4,y+8),kl:LINE - (x,y+12),kl: 
RETURN[RETURN] 
dir:[RETURN] 

LINE (x,y)-(x+20,y),kl:LINE (x+12,y-4)-( 
x+12,y+4),kl:LINE (x+12,y)-(x+8,y-4),kl 
[RETURN] 

LINE -(x+8,y+4),kl:LINE -(x+12,y),kl: 
RETURN[RETURN] 
dil:[RETURN] 

LINE (x,y)-(x+20,y),kl:LINE (x+8,y-4)-(x 
+8,y+4),kl:LINE (x+8, y)-(x+12,y-4),kl 
[RETURN] 

LINE - (x+12,y+4),kl:LINE -(x+8,y),kl: 
RETURN[RETURN] 
npn:[RETURN] 

LINE (x, y)-(x+8,y),kl:LINE (x+8,y-6)-(x+ 
9,y+6),kl,bf:LINE (x+10,y)-(x+20,y-10),k 
1[RETURN] 

LINE (x+10,y)-(x+20,y+10),kl:LINE (x+18, 
y+5)-(x+18,y+8),kl:LINE -(x+15,y+8),kl 
[RETURN] 

LINE (x+20,y-10)-(x+20,y-13),kl:LINE (x+ 
20,y+10)-(x+20,y+13),kl:RETURN[RETURN] 
pnp:[RETURN] 

LINE (x, y)-(x+8,y),kl:LINE (x+8,y-6)-(x+ 
9,y+6),kl,bf:LINE (x+10,y)-(x+20,y-10),k 
1[RETURN] 

LINE (x+10,y)-(x+20,y+10),kl:LINE (x+13, 
y+6)-(x+13,y+3),kl:LINE -(x+16,y+3),kl 
[RETURN] 

LINE (x+20,y-10)-(x+20,y-13),kl:LINE (x+ 
20,y+10)-(x+20,y+13),kl:RETURN[RETURN] 
trans:[RETURN] 

LINE (x,y)-(x+8,y),kl:LINE (x+8,y)-(x+12 
, y+40) , kl,bf:LINE (x,y+40)-(x+8,y+40),kl 
[RETURN] 

LINE (x+16,y)-(x+16,y+40),kl:LINE (x+20, 
y)-(x+24,y+40),kl,bf[RETURN] 

LINE (x+24,y)-(x+40,y),kl:LINE (x+24,y+4 
0)-(x+40,y+40),kl:RETURN[RETURN] 
brugg:[RETURN] 

LINE (x,y)-(x+20,y),kl:x=x+12:LINE - (x+2 
8,y+20),kl:LINE -(x+8,y+40),kl:LINE -(x- 
12,y+20),kl[RETURN] 

LINE - (x+8,y) ,kl:LINE (x+28,y+20)-(x+36, 
y+20),kl[RETURN] 

LINE (x-1,y+10)-(x-1,y+17),kl:LINE (x-2, 
y+10)-(x-8,y+10),kl:LINE (x-9,y+10)-(x-1 
,y+18),kl[RETURN] 

LINE (x-4,y+6)-(x+3,y+13),kl:LINE (x+18, 
y+29)-(x+11,y+29),kl:LINE (x+18,y+28)-(x 
+18,y+36),kl[RETURN] 

LINE (x+11,y+29)-(x+18,y+36),kl:LINE (x+ 
16,y+25)-(x+22,y+31),kl:LINE (x-6,y+31)- 
(x, y+31),kl[RETURN] 

LINE (x,y+25)-(x,y+32),kl:LINE (x-3,y+35 
)-(x+4,y+28),kl:LINE (x-7,y+31)-(x,y+24) 

,kl[RETURN] 























LINE (x+12,y+12)-(x+19,y+12),kl:LINE (x+ 

19,y+12)-(x+19,y+5),kl:LINE (x+12,y+12)- 
(x+19,y+5),kl[RETURN] 

LINE (x+16,y+16)-(x+23,y+9),kl:LINE (x 1 
7 , y+20)-(x-12,y+20),kl:LINE (x+8,y+40)- ( 
x-12,y+40),kl[RETURN] 

LINE (x-17,y+20)-(x-17,y+45),kl:LINE (x- 

17, y+45)-(x+36,y+45),kl:x=x-12:RETURN 
[RETURN] 

bat:[RETURN] 

LINE (x, y)-(x,y+ 8 ),kl:LINE (x-10,y+ 8 )-(x 
+10,y+ 8 ),kl:LINE (x-5,y+ll)-(x+5,y+12),k 
l,bf[RETURN] 

LINE (x,y+12)-(x,y+20),kl:RETURN[RETURN] 
schak:[RETURN] 

LINE (x, y)-(x+ 8 ,y),kl:LINE (x+ 8 , y-5)-(x+ 

18, y),kl:LINE -(x+2 6 ,y),kl:RETURN[RETURN] 
vepu:[RETURN] 

LINE (x-1,y-1)-(x+1,y+1),kl,bf:RETURN 
[RETURN] 
sopu:[RETURN] 

CIRCLE (x,y),7,kl:LINE (x-1,y-1)-(x+1,y+ 

1),kl,b[RETURN] 

RETURN[RETURN] 
verst:[RETURN] 

LINE (x,y)-(x+ 8 ,y),kl:LINE (x,y+10)- (x +8 
,y+10),kl:LINE (x+8,y-5)-(x+8,y+15),kl 
[RETURN] 

LINE -(x+28,y+5),kl:LINE -(x+ 8 ,y-5),kl:L 
INE (x+28,y+5)-(x+36,y+5),kl[RETURN] 

LINE (x+18,y)-(x+18,y-8),kl:LINE (x+18,y 
+10)- (x+18,y+18) ,kl:RETURN[RETURN] 
led:[RETURN] 

LINE (x,y)-(x,y+20),kl:LINE (x-4,y+12)-( 
x+4,y+12),kl:LINE (x, y+12)-(x+4, y+ 8 ),kl 
[RETURN] 

LINE -(x- 4 ,y+ 8 ),kl:LINE -(x,y+12),kl:LIN 
E (x+7,y+7)-(x+12,y+2),kl[RETURN] 

LINE (x+ 10 ,y+ 2 )-(x+12,y+2),kl:LINE -(x+1 
2,y+4),kl:LINE (x+7,y+13)-(x+12,y+8),kl 
[RETURN] 

LINE (x+ 10 ,y+ 8 )-(x+12,y+ 8 ),kl:LINE -(x+1 
2,y+10),kl:RETURN[RETURN] 
ech:[RETURN] 

LINE (X, y)-(x+ 8 ,y),kl:LINE (x+ 8 ,y- 6 )-(x+ 

10,y+ 6 ),kl,bf:LINE (x+13,y-6)-(x+15,y+6) 
,kl,b[RETURN] 

LINE (x+15,y)-(x+23,y),kl:RETURN[RETURN] 
ecv:[RETURN] 

LINE (x, y) - (x, y+ 8 ) , kl: LINE (x- 6 , y+ 8 ) - (x+ 

6 , y+10),kl,b:LINE (x-6,y+13)-(x+6,y+15), 
kl,bf[RETURN] 

LINE (x,y+15)-(x,y+23),kl:RETURN[RETURN] 
mas:[RETURN] 

LINE (x,y)-(x,y+ 6 ),kl:LINE (x-5,y+ 6 )-(x+ 

5, y+7) , kl,bf:RETURN[RETURN] 
icvhl 6 :[RETURN] 

FOR x2=x TO x+47 STEP 6 [RETURN] 

LINE (x2,y)-(x2+2,y+ 8 ),kl,bf:PSET (x2+l, 
y+4),ABS(1-kl)[RETURN] 

LINE (x 2 ,y+ 21 )-(x2+2,y+29),kl,bf:PSET (x 
2+1,y+25),ABS(1-kl):NEXT x2:RETURN 
[RETURN] 

icwl 6 : [RETURN] 

FOR y2=y TO y+55 STEP 7[RETURN] 

LINE (x,y 2 )- (x+ 6 ,y2+3),kl,bf:PSET (x+3,y 
2+2),ABS(1-kl)[RETURN] 

LINE (x+18,y2)-(x+24,y2+3),kl,bf:PSET (x 
+21,y2+2),ABS(1-kl):NEXT y2:RETURN[RETURN] 
icvhl4:[RETURN] 

FOR x2=x TO x+41 STEP 6 [RETURN] 


LINE (x 2 ,y)-(x2+2,y+8),kl,bf:PSET (x2+l, 
y+4) ,ABS (1-kl) [RETURN] 

LINE (x 2 ,y+ 21 )-(x2+2,y+29),kl,bf:PSET (x 
2 + 1 ,y+25),ABS(1-kl):NEXT x2:RETURN[RETURN] 
icvvl4:[RETURN] 

FOR y2=y TO y+48 STEP 7[RETURN] 

LINE (x,y 2 )- (x+6,y2+3),kl,bf:PSET (x+3,y 
2+2),ABS(1-kl)[RETURN] 

LINE (x+18,y2)-(x+24, y2+3),kl,bf:PSET (x 
+21,y2+2),ABS(1-kl):NEXT y2:RETURN[RETURN] 
ichl6:[RETURN] 

LINE (x,y+4)-(x+50,y+28),kl,b:FOR x2—x+3 
TO x+49 STEP 6[RETURN] 

LINE (x 2 ,y)-(x2+l,y+4),kl,bf:LINE (x2,y+ 
29)-(x2+l,y+32),kl,bf:NEXT x2[RETURN] 

LINE (x,y+14)-(x+3,y+14),kl:LINE (x+4,y+ 
15)-(x+4,y+17),kl:LINE (x,y+18)-(x+3,y+1 
8),kl:RETURN[RETURN] 
icvl6:[RETURN] 

LINE (x+ 4 ,y)-(x+28,y+57),kl,b:FOR y2=y+3 
TO y+55 STEP 7[RETURN] 

LINE (x,y2)-(x+4,y2+l),kl,bf:LINE (x+29, 
y2)-(x+32,y2+l),kl,bf:NEXT y2[RETURN] 

LINE (x+ 14 ,y)-(x+14,y+3),kl:LINE (x+15,y 
+4)-(x+17,y+4),kl:LINE (x+18,y)-(x+18,y+ 
3),kl:RETURN[RETURN] 
ichl4:[RETURN] 

LINE (x,y+4)-(x+44,y+28),kl,b:FOR x2-x+3 
TO x+43 STEP 6[RETURN] 

LINE (x2,y)-(x2+l,y+4),kl,bf:LINE (x2,y+ 

2 9)- (x2 + l,y+32) ,kl,bf:NEXT x2[RETURN] 

LINE (x,y+ 14 )-(x+3,y+14),kl:LINE (x+4,y+ 
15)-(x+4,y+17),kl:LINE (x,y+18)-(x+3,y+1 
8),kl:RETURN[RETURN] 
icvl4:[RETURN] 

LINE (x+ 4 ,y)-(x+28,y+50),kl,b:FOR y2-y+3 
TO y+48 STEP 7[RETURN] 

LINE (x,y2)-(x+4,y2+l),kl,bf:LINE (x+29, 
y2)-(x+32,y2+l),kl,bf:NEXT y2[RETURN] 

LINE (x+ 14 ,y)-(x+14,y+3),kl:LINE (x+15,y 
+ 4) -(x+17, y+4),kl:LINE (x+18, y)-(x+18,y+ 
3),kl:RETURN[RETURN] 
pOR:[RETURN] 

LINE (x,y+5)-(x+8,y+5),kl:LINE (x,y+15)- 
(x+8,y+15),kl:LINE (x+28,y+10)-(x+36,y+1 
0),kl[RETURN] 

LINE (x+8,y)-(x+28,y+20),kl,b:LINE (x+13 
, y+11) - (x+17 , y+7) , kl -.RETURN [RETURN] 
pNOR:[RETURN] 

LINE (x,y+5)-(x+8,y+5),kl:LINE (x,y+15)- 
(x+8,y+15),kl:LINE (x+28,y+10)-(x+36,y+1 
0),kl[RETURN] 

LINE (x+8,y)-(x+28,y+20),kl,b:LINE (x+13 
,y+11)-(x+17,y+7),kl:LINE (x+28,y+6)-(x+ 
32,y+10),kl:RETURN[RETURN] 
pAND:[RETURN] 

LINE (x,y+5)-(x+8,y+5),kl:LINE (x,y+15)- 
(x+8,y+15),kl:LINE (x+28,y+10)-(x+36,y+1 
0),kl[RETURN] 

LINE (x+8,y)-(x+28,y+20),kl,b:RETURN 
[RETURN] 
pNAND:[RETURN] 

LINE (x,y+5)-(x+8,y+5),kl:LINE (x,y+15)- 
(x+8,y+15),kl:LINE (x+28,y+10)-(x+36,y+1 
0),kl[RETURN] 

LINE (x+8,y)-(x+28,y+20),kl,b:LINE (x+28 
, y+ 6)_ (x+32,y+10),kl:RETURN[RETURN] 
pinv:[RETURN] 

LINE (x,y+10)- (x+8,y+10) ,kl:LINE (x+28,y 
+10)-(x+36,y+10),kl[RETURN] 

LINE (x+8,y)-(x+28,y+20),kl,b:LINE (x+28 





























print-out print-out print-out print-out print-out 


,y+6)-(x+32,y+10),kl:RETURN[RETURN] 

[RETURN] 

afbak:[RETURN] 

LINE (632,0)-(637,256),kl,bf:LINE (0,252 
>-(640,256),kl,bf:RETURN[RETURN] 

[RETURN] 

DATA "weerstand hor","weerstand ver","co 
ndencator hor","condencator ver"[RETURN] 
DATA "spoel hor","spoel ver","diode bove 
n","diode onder","diode rechts"[RETURN] 
DATA "diode links","transistor npn","tra 
nsistor pnp","transformator","bruggelijk 
richter"[RETURN] 

[RETURN] 

DATA "batterij","schakelaar","verbinding 
spunt","soldeerpunt","versterker"[RETURN] 
DATA "LED ","elek condenc hor","elek 

condenc ver","massa "[RETURN] 

[RETURN] 

DATA "voetje 14 hor", "voetje 14 verf, "v 
oetje 16 hor","voetje 16 verf[RETURN] 
DATA "IC 14 pin hor","IC 14 pin vert","I 
C 16 pin hor","IC 16 pin vert"[RETURN] 
[RETURN] 

DATA " -", "OR 2 ingangen" 

,"NOR 2 ingangen","AND 2 ingangen","NAND 
2 ingangen","inverter"[RETURN] 

[RETURN] 

SUB aan STATIC[RETURN] 

CALL SetDrMd&(WINDOW(8),3)[RETURN] 

END SUB[RETURN] 

SUB uit STATIC[RETURN] 

CALL SetDrMdS(WINDOW(8),1)[RETURN] 

END SUB[RETURN] 

SUB ZetTekst(x,y,breedte,hoogte,kl,b$) S 
TATIC[RETURN] 

COLOR 1[RETURN] 

LOCATE 1,1:PRINT b$[RETURN] 

COLOR kl[RETURN] 

FOR zx=0 TO 7[RETURN] 

FOR zy=0 TO 7[RETURN] 

IF POINT (zx,zy)=1 THEN[RETURN] 

LINE (x+zx*breedte,y+zy*hoogte)-(x+zx 
*breedte+(breedte-1),y+zy*hoogte+(hoogte 
-1)),kl,bf[RETURN] 

END IF[RETURN] 

NEXT zy:NEXT zx[RETURN] 

LOCATE 1,1:PRINT " "[RETURN] 

END SUB[RETURN] 
niets:[RETURN] 

RETURN[RETURN] 

[RETURN] 

drukaf:[RETURN] 

BorderFlag%=0 [RETURN] 

GOSUB ScreenDump[RETURN] 

FOR de=l TO 5000: NEXT[RETURN] 

BEEP[RETURN] 

RETURN[RETURN] 

[RETURN] 

ScreenDump:[RETURN] 

IF AlreadyDeclared=0 THEN[RETURN] 

DECLARE FUNCTION AllocSignal%() LIBRARY 
[RETURN] 

DECLARE FUNCTION AllocMemS() LIBRARY 
[RETURN] 

DECLARE FUNCTION FindTaskS() LIBRARY 
[RETURN] 

DECLARE FUNCTION DoIOS() LIBRARY 
[RETURN] 

DECLARE FUNCTION OpenDeviceS LIBRARY 
[RETURN] 


AlreadyDeclared=2[RETURN] 

END IF[RETURN] 

sWindowS = WINDOW(7)[RETURN] 
sScreenS = PEEKL(sWindowS + 46) 

[RETURN] 

sViewPortS = sScreenS + 44[RETURN] 
sRastPortS = sScreenS + 84[RETURN] 
sColorMapS = PEEKL(sViewPortS + 4) 

[RETURN] 

maxWidth% = PEEKW(sScreenS + 12) 

[RETURN] 

maxHeight% = PEEKW(sScreenS + 14) 

[RETURN] 

viewModes% = PEEKW(sViewPortS + 32) 

[RETURN] 

command%=ll [RETURN] 
srcX%=0 [RETURN] 
srcY%=0 [RETURN] 
srcWidth% = maxWidth%[RETURN] 
srcHeight% = maxHeight%[RETURN] 
destRowsS = 0 [RETURN] 

destColsS = 0[RETURN] 
special% = SH84 [RETURN] 

[RETURN] 

IF BorderFlag% = 0 THEN [RETURN] 
srcX% = srcX% + 3[RETURN] 
srcY% = srcY% + 11[RETURN] 
srcWidth% = srcWidth% - 3 - 11 
[RETURN] 

srcHeight% = srcHeight% - 11 - 3 
[RETURN] 

END IF [RETURN] 

[RETURN] 

IF AlreadyDeclared=2 THEN AlreadyDeclare 
d=l:LIBRARY "exec.library"[RETURN] 
sigBit% = AllocSignal%(-1)[RETURN] 
ClearPublicS = 65537S[RETURN] 
msgPortS = AllocMemS(40,ClearPublicS) 
[RETURN] 

IF msgPortS = 0 THEN[RETURN] 

PRINT "Can't allocate msgPort" 

[RETURN] 

GOTO cleanup4[RETURN] 

END IF[RETURN] 

[RETURN] 

POKE(msgPortS +8), 4 'Type=NT_MSGPORT 

[RETURN] 

POKE(msgPortS + 9), 0 [RETURN] 
portName$ = "MyPrtPort"+CHR$(0)[RETURN] 
POKEL(msgPortS + 10), SADD(portName$) 
[RETURN] 

POKE(msgPortS +14), 0 [RETURN] 

POKE(msgPortS + 15), sigBit%[RETURN] 
sigTaskS = FindTaskS(0)[RETURN] 

POKEL(msgPortS + 16), sigTaskS[RETURN] 
[RETURN] 

CALL AddPort(msgPortS) [RETURN] 

ioRequestS = AllocMemS(64,ClearPublicS) 
[RETURN] 

IF ioRequestS = 0 THEN[RETURN] 

PRINT "Can't allocate ioRequest" 

[RETURN] 

GOTO cleanup3[RETURN] 

END IF[RETURN] 

[RETURN] 

POKE(ioRequestS + 8),5 'Type=NT_MESSAGE 
[RETURN] 

POKE(ioRequestS + 9),0 'Priority 0[RETURN] 
POKEL(ioRequestS + 14), msgPortS[RETURN] 
[RETURN] 

devName$ = "printer.device"+CHR$(0)[RETURN] 
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pErrorS, = OpenDeviceS (SADD (devName$) , 0, i 
oRequest&,0) [RETURN] 

IF pError& 0 THEN[RETURN] 

PRINT "Can't open printer"[RETURN] 

GOTO cleanup2[RETURN] 

END IF[RETURN] 


[RETURN] 

POKEW(ioRequestS + 28), command%[RETURN] 
POKEL(ioRequestS + 32), sRastPortS[RETURN] 
POKEL(ioRequest& + 36), sColorMapS[RETURN] 
POKEL(ioRequestS + 40), viewModes%[RETURN] 
POKEW(ioRequestS + 44), srcX%[RETURN] 

POKEW(ioRequestS + 46), srcY%[RETURN] 

POKEW(ioRequestS + 48), srcWidth%[RETURN] 
POKEW(ioRequestS + 50), srcHeight%[RETURN] 
POKEL(ioRequestS + 52), destColsS[RETURN] 
POKEL(ioRequestS + 56), destRows&[RETURN] 
POKEW(ioRequestS + 60), special%[RETURN] 
[RETURN] 

ioErrorS = DoIO& (ioRequest&)[RETURN] 

IF ioErrorS 0 THEN[RETURN] 

PRINT "DumpRPort error =" ioErrorS 
[RETURN] 

GOTO cleanupl[RETURN] 

END IF[RETURN] 
cleanupl:[RETURN] 

CALL CloseDevice(ioRequestS)[RETURN] 
cleanup2:[RETURN] 

POKE(ioRequestS + 8), &HFF[RETURN] 

POKEL(ioRequestS + 20), -1[RETURN] 

POKEL(ioRequestS + 24), -1[RETURN] 

CALL FreeMem(ioRequest&,64)[RETURN] 
cleanup3:[RETURN] 

CALL RemPort(msgPortS)[RETURN] 

POKE(msgPortS + 8), &HFF [RETURN] 

POKEL(msgPortS + 20), -1[RETURN] 

CALL FreeSignal(sigBit%)[RETURN] 

CALL FreeMem(msgPortS,40)[RETURN] 
cleanup4: [RETURN] 

RETURN[RETURN] 

[RETURN] 

Einde listinq Schema’s maken_ 



Ook dit is weer een programma van Luc De Cock uit 
België. Ditmaal is het een eenvoudig verslavend 
spelletje. De sterretjes moeten worden verzameld 
zonder ergens tegen aan te botsen. De joystick moet 
in poort 2. 

REM »> slang «< [RETURN] 

REM door Luc De Cock [RETURN] 

REM 2990 Haacht (Belgie) [RETURN] 

DIM pl%(64) [RETURN] 

SCREEN 1 ,320,213,3,1:WINDOW 4,"slang",, 0 
,1 [RETURN] 

PALETTE 0,0,0,0:PALETTE 1,0,0,0:PALETTE 
2,1,1,.13:PALETTE 3,1,1,1 [RETURN] 

PALETTE 4, .8, .6, .4:PALETTE 5,0, .3, .8:PAL 
ETTE 6,1,.6,.67 [RETURN] 

FOR z=0 TO 63:pl%(z)=PEEK(20212+z):POKE 
20212+z,0:NEXT z [RETURN] 

FOR z=l TO 10:MENU z,0,0,"":NEXT z 
[RETURN] 

WAVE 0,SIN [RETURN] 
sn=0 [RETURN] 
titel: [RETURN] 

CLS:GOSUB border [RETURN] 

COLOR 3,0:LOCATE 5,8:PRINT " ### # # 

# # # ###" [RETURN] 

LOCATE 6,8:PRINT "# # ###### 

" [RETURN] 

LOCATE 7,8:PRINT "#### # #### # ## # 

##" [RETURN] 

LOCATE 8,8:PRINT " ## ##### 

#" [RETURN] 

LOCATE 9,8:PRINT "### #### # # # # # 

# " [RETURN] 

LOCATE 12,11:COLOR 2,0:PRINT "door Luc D 
e Cock" [RETURN] 

LOCATE 17,6:COLOR 6,0:PRINT "Kies snelhe 
id met joystick 2" [RETURN] 

LOCATE 22,15:COLOR 5,0:PRINT "q = stoppe 
n" [RETURN] 

COLOR 4,0:LOCATE 19,19:PRINT sn [RETURN] 
a=0:b=0 [RETURN] 

WHILE STRIG(3)=0 [RETURN] 

IF b=0 THEN a=a+.1:IF al THEN b=l 
[RETURN] 

IF b=l THEN a=a-.l:IF a.4 THEN b=0 
[RETURN] 

PALETTE 3,a,a,a [RETURN] 

IF INKEY$="q" THEN einde [RETURN] 
le=STICK(3):sn=sn+(le=l AND sn0)-(le=-l 
AND sn ) [RETURN] 

LOCATE 19,19:PRINT sn [RETURN] 

FOR z=0 TO 200:NEXT z [RETURN] 

WEND:PALETTE 3,1,1,1 [RETURN] 

lev=l:wa=sn*30+20:ha=5: sc=0 :aa=5:COLOR 6 

,0 [RETURN] 

start: [RETURN] 

CLS:GOSUB border [RETURN] 

COLOR 6,0 [RETURN] 

FOR z=l TO aa [RETURN] 
opnieuw: [RETURN] 

RANDOMIZE TIMER [RETURN] 

x=CINT(RND*36+1):y=CINT(RND*22+1):IF POI 
NT(x*8-4,y*8-4)1 THEN opnieuw [RETURN] 

IF x=21 AND y=13 THEN opnieuw [RETURN] 
LOCATE y,x:PRINT "*":NEXT z [RETURN] 

GOSUB border [RETURN] 

LOCATE 1,15:COLOR 5,2:PRINT "LEVEL :";le 



























CLS:GOSUB border [RETURN] 

LOCATE 7,14:COLOR 3,0:PRINT "Uw score :" 
;sc [RETURN] 

LOCATE 16,5:COLOR 4,0:PRINT "Druk vuurkn 
op om terug te spelen" [RETURN] 

LOCATE 20,10:COLOR 6,0:PRINT "of 'q' om 
te stoppen" [RETURN] 
a=0:b=0 [RETURN] 

WHILE STRIG(3)=0 [RETURN] 

IF b=0 THEN a=a+.1:IF al THEN b=l 
[RETURN] 

IF b=l THEN a=a-.1:IF a.3 THEN b=0 
[RETURN] 

PALETTE 3,a,a,a [RETURN] 

IF INKEY$="q" THEN einde [RETURN] 

WEND [RETURN] 

GOTO titel [RETURN] 
geluid: [RETURN] 

FOR z=130 TO 1700 STEP 90 [RETURN] 

SOUND z,3,127,0 [RETURN] 

NEXT z [RETURN] 

FOR z=1700 TO 130 STEP -90 [RETURN] 

SOUND z,3,127,0 [RETURN] 

NEXT z:RETURN [RETURN] 
einde: [RETURN] 

FOR z=0 TO 63:POKE 20212 + z,pl% (z) :NEXT z 
:ERASE pl% [RETURN] 

MENU RESET [RETURN] 

SCREEN CLOSE 1:END [RETURN] 
border: [RETURN] 

LINE (0,0)-(320,7),2,bf:LINE (0,0)-(7,20 
0),2,bf:LINE (0,192)- (320,200),2,bf:LIN 
E (304,0)-(311,200),2,bf:RETURN [RETURN] 
[RETURN] 


v [RETURN] 

FOR z=0 TO 3000:NEXT z:GOSUB border 
[RETURN] 

x=160:y=96:COLOR 4,0:LOCATE INT(y/8)+l,I 
NT (x/8)+1:PRINT "O":c=x:d=y:lx=l: ly=0 
[RETURN] 
lees: [RETURN] 

cx=STICK(2):cy=STICK(3):IF ABS(cx)=ABS(c 
y) THEN verderl [RETURN] 

IF cxO THEN lx=cx:ly=0 [RETURN] 

IF cyO THEN ly=cy:lx=0 [RETURN] 
verderl: [RETURN] 

x=x+8* (lx—— 1)-8*(lx=l) :y=y+8*(ly=-l)-8*( 
ly=l) [RETURN] 

IF POINT(x+4,y+4)=6 THEN eet [RETURN] 

IF POINT(x,y)l THEN botsing [RETURN] 
verder: [RETURN] 

LINE (c,d)-(c+7,d+7),4,bf [RETURN] 

LOCATE INT(y/8)+1,INT(x/8)+1:PRINT "O"; 
[RETURN] 

c=x:d=y [RETURN] 

SOUND 1700,-5,127,0 [RETURN] 

FOR z=0 TO wa:NEXT z [RETURN] 

GOTO lees [RETURN] 
eet: [RETURN] 

IF ha=l THEN [RETURN] 

aa=aa+3:ha=aa:lev=lev+l [RETURN] 

LINE (c,d)-(c+7,d+7),4,bf [RETURN] 

LOCATE INT(y/8)+1,INT(x/8)+1:PRINT "O" 

; [RETURN] 

GOSUB geluid:GOTO start [RETURN] 

END IF [RETURN] 
sc=sc+l [RETURN] 

LINE (x,y)-(x+7,y+7),0,bf [RETURN] 

SOUND 1000,1.5,127,0 [RETURN] 
ha=ha-l:GOTO verder [RETURN] 
botsing: [RETURN] 
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Amiga 


Revenge of the Mutant Camels 


Jaren lang is met de commodore 64 
één spel razend populair geweest. 
Jeff Minter was een begrip in Europa, 
we bedoelen dan de Revenge. Nu is 
er door Jeff Minter een Amiga versie 
gemaakt. Er zijn natuurlijk erg veel 
veranderingen aangebracht. We zul¬ 
len deze twee dan ook niet met elkaar 
gaan vergelijken. 

Na het opstarten van het spel krijg je 
een vlak met daarop een groot aantal 
vierkantjes op het scherm. Met de 
muisknop kun je er nu één aanwijzen. 
Door op de linker muisknop te druk¬ 
ken activeer je dit veld. Elk veld staat 
voor een aanvalsgolf. Zodra je er één 
verslagen hebt kun je een volgende 
kiezen. De wapen voorraad is weer op 
peil te brengen door wapens aan te 
gaan kopen. De bedoeling van dit spel 
is natuurlijk om zoveel mogelijk (liefst 
allemaal) aanvalsgolven te doorstaan. 
De materialen waar je mee wordt 
aangevallen variëren van hamburgers 
tot hartjes, en alles wat je verder nog 
maar kunt bedenken. Zodra je een 
aanvalsgolf overwonnen hebt kun je 
wapens gaan kopen. Dit gebeurt door 
nogmaals het bij dit veld behorende 


blokje aan te wijzen en op de linker 
muis knop te drukken. Nu kun je kie¬ 
zen welk wapen je wilt gaan gebrui¬ 
ken. Er zijn in het totaal zeven ver¬ 
schillende soorten wapens. Nadat we 
een goede keuze hebben gemaakt, 
helaas blijkt dit pas achteraf, kiezen 
we een nieuwe aanvalsgolf. Hebben 
we deze ook weer overwonnen dan 
begint het ritueel van kiezen weer op¬ 
nieuw. Dat dit spel is ontstaan in En¬ 
geland blijkt uit een groot aantal attri¬ 
buten die ons om de oren vliegen, wat 
dacht U van Engelse telefooncellen, 
pacmannetjes, sneeuwpoppen, kik- 
kervisjes, ja zelfs diskettes blijken niet 
meer veilig te zijn. En al deze attribu¬ 
ten hebben één ding gemeen, een 
aanraking kost erg veel energie. 
Mocht je bij een poging deze voorwer¬ 
pen te ontwijken of te vernietigen tijd 
overhouden, let dan ook eens op de 
prachtige achtergrond. In het ontwik¬ 
kelen hiervan is de nodige tijd gesto¬ 
ken, dat is duidelijk te zien. Een prach¬ 
tig spel om zo even tussendoor te spe¬ 
len. Maar om het te kunnen winnen is 
zeker meer nodig dan dit eventjes tus¬ 
sendoor. 


Ontwikkelaars conferentie 

Sinds de introductie zijn er volgens 
Commodore wereldwijd al meer dan 
600.000 Amiga’s verkocht. Dit was 
voor Commodore aanleiding om 
i een internationale bijeenkomst te 
initiëren van hard- en software ont¬ 
wikkelaars. Het succes van deze 
eerste conferentie in Washington 
heeft ertoe geleid ook in Europa een 
dergelijke bijeenkomst is belegd. 
i Van 16 tot en met 18 januari 1989 
I ontmoetten Amiga-ontwikkelaars el- 
I kaar in Frankfurt. De bijeenkomst 
was niet bedoeld voor Amiga-ge- 
bruikers, maar als ondersteuning 
voor producenten van Amiga hard¬ 
en software. In de voordrachten en 
workshops werd een dieper inzicht 
geboden in de hardware en het be¬ 
sturingssysteem van de Amiga, en 
werd een overzicht gegeven van 
toekomstige activiteiten. Er is een 
‘Amiga Developers Support Pro¬ 
gram’ gestart, voor het verzorgen 
van ondersteuning van ontwikke¬ 
laars. Commodore Nederland gaat 
voor de ontwikkelaars bovendien 
een nieuwsbrief uitgeven. Inl.: 020- 
882222 


Kleine advertenties 


Gevraagd 

C-64 + datarecorder + 2 joysticks. 
Max. prijs ƒ 300,— 

Tel. 03461-1888/03461-3798 (Jan- 
Hein) 

Wegens aanschaf PC te koop: 

Commodore 64, datarecorder, moni¬ 
tor (groen), 1541 diskdrive, MPS 801 
printer, 2 diskette boxen, expert car- 
tridge, veel boeken (mach.taal gra- 
phics etc.) originele maual, veel orig. 
games (op tape, disk en cart.), joys¬ 
ticks, vaste prijs ƒ 1.000,- 
Tel. 023-263575 (Mark) 

Te koop 64: 

Wegens aanschaf A500, 

Alle applicaties GEOS vl.3 (Geofile. 
e.d.). Adventures: Pawn, Guild, 
Jinxter. Nog veel meer + handleidin¬ 
gen + boeken. Alles voor 1/4 van de 
prijs. 

Tel. 01150-30855 Ralph. 

Gevraagd: 

Commodore drive 1571 
Tel. 02503-14160 


Wie wil ruilen? 

Wie zijn disk-versie van het spel gold, 
silver and bronze, (CBM-64) voor mijn 
cassette-versie wil ruilen, krijgt er het 
spel waterpolo (disk) bij. 

Tel. 078-165163 

Te koop gevraagd 

AMIGA 500, evt. met toebehoren. 

Tel. 05780-20224 J. v. Bussel 

Te koop C64 

C64, diskdrive 1541, modem teletron 
1200 samengeb. in computercase 
64d, printer MPS 802, kl.monitor/tv 
Sharp, 2 datarec. 2 joysticks, muis, 
trackerball, software, handl.instr.boe- 
ken, programma’s. Prijs ƒ 1.650,- 
Tel. 045-211222 na 18.00 uur. 

Te koop C64 systeem 

C64 + Philips monitor + datarec. + 
joysticks en met vele spelletjes, pro¬ 
gramma's tijdschriften en boeken. Dit 
alles voor maar ƒ 650,- 
Bel nu 035-42690 


Te koop C64 en toebehoren 

C64 + diskdrive + monitor + veel toe¬ 
behoren 
Tel. 05160-3076 


Te koop 

Amiga 500 + 1084 monitor. Veel soft- 
ware o.a. MS DOS emulator, 40 lege 
diskettes met opbergbox. Prijs ƒ 
1.650,- 

Tel. 050-265448 
Te koop C-128: 

Cl 28 + kleurenmonitor 1901 (40/80 
kol) + MPS 1200 printer (NLQ) + joyst. 
Prijs: 28.000 Bfr. Ook apart verkrijg¬ 
baar. 

Tel. 011/88.25.77 (België, landen) 

Te koop C64-II 

Commodore 64 II ƒ 225,- 
Printer MPS-803 ƒ 225,- 
Expert cartridge met ESM voor ƒ 100, 
inclusief handleidingen 
Tel. 020-367313 
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In dit artikel willen we wat uitleggen hoe men de Amiga met de buitenwereld kan ver¬ 
binden. Dat kan op verschillende manieren. In dit artikel hebben we het hebben over 
de minder gebruikte expansie-bus. Een Amiga kan tevens sturen met de parallel poort 
en de RS-232 poort. Wij gebruiken als voorbeeld een robot-arm en LED-jes om aan te 
sturen. Maar in principe is de eigen fantasie de enigste beperking. 


Interfacing met de Amiga 

Bouw je eigen interface-kaart! 


H et gebruik van een interface-kaart heeft veel voordelen. Men kan andere 
machines bereiken, randapparatuur aansturen, maar bijvoorbeeld ook 
een robotarm besturen. De in dit artikel behandelde kaart is vanuit alle pro- 
grameertalen aan te roepen. Wij gebruiken als voorbeeld BASIC en Assem- 


bler. 

Het is wel zo leuk om zelf een in¬ 
terface-kaart te bouwen. Je 
moet een beetje handig zijn, 
maar het is beslist niet nodig om 
eerst de HTS te hebben ge¬ 
volgd. Het voordeel is, dat je 
weet hoe zo’n systeem werkt, 
zodat je later zonder al te grote 
problemen zelf nog wat kunt pro¬ 
beren. 

Hoe werkt de kaart 
en hoe bouw je de 
kaart? 

De kaart zoals die hieronder is 
beschreven is getest op een 
Amiga 500. Bij de Amiga 1000 
zal de kaart 180 graden moeten 
worden gedraaid. 

Het IC met het typenummer 
SN74LS138 zorgt ervoor dat als 
Al 2 en Al 3 hoog en de lijnen 
VMA(Valid Memory Address) en 
A20 laag zijn (van de expansie- 
bus: zie Amiga handboek), dat 
dan de Select-lijn laag wordt. 
Deze lijn is verbonden met Chip 
Select lijn van de VIA 6522. 

Dit is altijd het geval wanneer 
het volgende adres wordt aan¬ 
geroepen. 



0 volledig kompatible met alle 
overige hardware 

Voor het bouwen heeft men het 
volgende nodig: 

0 Een 86 polige expansie-bus 
connector. 

° IC SN74LS138 met voetje. 

0 IC VIA 6522 met voetje. 

0 Een Tantaal Elco 10 micro-fa- 
rad. 

° 16 transistors BC 557B 
(Niet bij input(ingang)) 

° 16 weerstanden 330 Ohm 
(Niet bij input) 

0 een printplaat (Eventueel bij 
ons te bestellen). 

Denk erom de IC’s in de goede 
richting te zetten. De + en de - 
kant van de Elco goed om te zet¬ 
ten. 

Het gedeelte dat in afbeelding 1 
is omlijnd, kan worden weggela¬ 
ten indien u een input lijn wilt heb¬ 
ben. Maar men kan beter inlezen 
met de joystick poort (geen extra 
hardware nodig). 

Het aansturen van de 
kaart 


A23.A0 - 

101 Oxxxxxxl 1 xxxxRRRRxxxx 

(x = willekeurig en 
R = Register van de VIA) 

De kaart voldoet aan de volgende 
specificaties: 

° 16 vrij programmeerbare 1/0 lijnen 


0 2 universele Timers (worden nu niet 
beschreven) 

° 1 schuif register (wordt nu niet be¬ 
schreven) 

0 kan een Interrupt veroorzaken 
° eenvoudig in te steken in de Expan¬ 
sie poort van de Amiga 500 
° geen verbruik van geheugen gebie¬ 
den 


Voordat men kan sturen moet eerst 
aan de kaart de richting worden ge¬ 
meld (1/0). Daarna kan worden verteld 
welke lijn hoog of laag moet worden 
gemaakt. 

In BASIC: 

POKE 10498096,255 en POKE 
10498064,255 
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Deze adressen zorgen ervoor dat alle 
16 lijnen als uitgang worden gekozen. 
(Voor ingang moet men 255 in 0 ver¬ 
anderen). 

Als men nu 

POKE 10498080,255 en POKE 
10498048,255 

ingeeft zijn alle lijnen laag. 

In Assembler: 

move.b #%11111111 ,$a03030 en 
move.b #%11111111 ,$a03010 

Deze adressen zorgen ervoor dat alle 
lijnen als uitgang worden gekozen. 
Als men alle lijnen als ingang wil ge¬ 
bruiken moet men de volgende regels 
ingeven: 

move.b #%00000000,$a03030 en 
move.b #%00000000,$a03010 

Nu kan men lijnen openzetten, 
voorbeeld: 

move.b #%11111110,$a03020 

dit zet alleen de uitgang open die laag 
(0) is. 

move.b #%00001111 ,$a03000 

dit zet de helft van de uitgangen open. 
Voor inlezen: 

move.b $a03000,d0. 

Nu staat in het register DO welke ui- 
gangen wel en niet open zijn (vergelijk 
met CMP of een masker AND) (zie 
voorbeelden voor verdere details). 



Een aantal zelfgemaakte kaarten. 
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Afbeelding 1. 

(Het omlijnde gedeelte weglaten, als men de kaart als input-kaart wil gebruiken) 


Robotarm 

Hieronder vind je een voorbeeld om 
een Quickshot robot-arm aan te stu¬ 
ren vanuit assembler (Zie ook afbeel¬ 
ding 2. voor de schematische weerga¬ 
ve). 

Dit programma is geschreven m.b.v. 
de SEKA assembler. Na het assem¬ 
bleren en het opstarten (G) verschijnt 
er een message balk. Nu kun je de ro- 
bot-arm gaan sturen met de functie 
toetsen. Als je op de 1-toets drukt 
(Niet het numerieke eiland) zal de 
demo opstarten. 

Er verschijnt geen tekening van de ro¬ 
bot-arm op het scherm zoals bij ande¬ 
re versies. Hier komt ie. 


;voor Commodore Info 
;(c) Hans van der Pol 


;offsets 

openwindow 

= 

-204 

closewindow 

= 

-72 

openscreen 

= 

-198 

closescreen 

= 

-66 

openlib 

= 

-408 

closelibrary 

= 

-414 

printitext 

= 

-216 

drawborder 

= 

-108 

getmsg 

= 

-372 

delay 

= 

-198 


move.1 execbase,a6 
lea dosname,al 
jsr openlib(a6) 

;DOS library openen 
move.1 d0,dosbase 

move.1 intbase,a6 
lea screen_defs,a0 
jsr openscreen(a6) ;eigen 

screen openen 
move.1 d0,screenhd 

move.1 intbase,a6 
lea window_defs, a0 
jsr openwindow(a6) ;eigen 

window openen 
move.1 d0,windowhd 

lea bordertje,al 
move.w #20,d0 
move.w #80,dl 
bsr border 

;message balk om de tekst heen 

;alle data-lijnen definiëren. 

move.b #11111111,$a03030 

; alle lijnen als 

move.b #%11111111,$a03020 

;uitgang 

move.b #%11111111,$a03010 
;alle lijnen uit 

move.b #%11111111,$a03000 

; hoofdloop 


4 

$bfec01 

/adres, om te kijken welk 
init: 

move.1 execbase,a6 
lea intname,al 

jsr openlib(a6) 

/intuition openen 
move.1 d0,intbase 


execbase 

toets 


loop: 

move.b toets,d0 
bsr zoek 

move.1 windowhd,a0 
move.1 86(a0),a0 
move.1 execbase,a6 
jsr getmsg(a6) 

move.1 d0,a0 
move.1 20(a0),d6 
tst.1 d0 


Commodore Info H89 


77 








Amigo 


bne stoppen 

; alles afsluiten als je het eigen 

window 

bra loop 

; sluit. Anders opniew naar loop 
toe springen. 

zoek: 

; Hier wordt gekeken welke toets 
werd 

cmp.b #$5f,d0 

; ingedrukt. En naar de subrouti- 
ne gesprongen 

beq linksom 

; waar die richting wordt openge¬ 


zet . 


cmp.b 

#$5d,dO 

beq 

rechtsom 

cmp. b 

#$5b,dO 

beq 

achteren 

cmp. b 

#$59,dO 

beq 

voren 

cmp .b 

#$57,dO 

beq 

omhoog 

cmp. b 

#$55,dO 

beq 

omlaag 

cmp. b 

#$53,dO 

beq 

grlinks 

cmp.b 

#$51, dO 

beq 

grrechts 

cmp.b 

#$4f,dO 

beq 

dicht 

cmp. b 

#$4d,dO 

beq 

open 

cmp.b 

#$fd,dO 

beq 

rts 

demo 

demo: 

lea 

textll,al 

move.1 

#10,dO 

move.1 

#30,dl 

jsr 

print 

;rechtsom 

lea 

text4,al 

move.1 

#8, dO 

move.1 

#15,dl 

bsr print 


move.b #%11111101,$a03000 

move.1 dosbase,a6 

move.1 #75,dl 

jsr delay(a6) 

move.b #%11111111,$a03000 

lea textO,al 

move.1 #7,d0 

move.1 #15,dl 

bsr print 

;voren3 

lea text2,al 
move.1 # 8, dO 
move.1 #15,dl 
bsr print 

move.b #%01111011,$a03010 

move.1 dosbase, a6 

move.1 #275,dl 

jsr delay(a6) 

move.b #%11111111,$a03010 

lea textO,al 

move.1 #7,d0 

move.1 #15,dl 

bsr» - print 


; grlinks 


lea 
move.1 


text7,al 
#8, dO 


move.1 #15,dl 
bsr print 

move.b #%11101110,$a03010 
move.1 dosbase, a6 
move.1 #70,dl 
jsr delay(a6) 

move.b #%11111111,$a03010 
lea textO,al 
move.1 #7,d0 
move.1 #15,dl 
bsr print 


;linksom 
lea 
move 
move 
bsr 


move 

move 


text3,al 
#8, dO 
#15,dl 
print 

move.b #%11111110,$a03000 
dosbase,a6 
#75, dl 


jsr delay(a6) 


.1 a :ï 4 s 



Pi t/H RIB 30® ol-in 
Tl t/Vi T10 BCU'ÏTB 

Pi: PÖÖRT 1 v-ais de QuickSIivi robötarn 
P2 : PQÖR.T 2 vran de OuickShoi i'oliBtarM 
1 i/t\ 18: ui tjrang - vjb de OUTPUT kaart 


Afbeelding 2. 
Schema om een 
Quickshot 
Robotarm aan te 
sluiten. 


move.b #%11111111,$a03000 
lea textO,al 

move.1 #7,d0 
move.1 #15,dl 
bsr print 

;achteren 
lea textl,al 
move.1 # 8, dO 
move.1 #15,dl 
bsr print 

move.b #%10110111,$a03010 
move.1 dosbase,a6 
move.1 # 2 7 5,dl 
jsr delay(a6) 

move.b #%11111111,$a03010 
lea textO,al 
move.1 #7,d0 
move,l #15,dl 
bsr print 

;grijper 
lea text8,al 
move.1 #8,d0 
move.1 #15,dl 
bsr print 

move.b #%11011101,$a03010 
move.1 dosbase,a6 
move.1 #70,dl 
jsr delay(a6) 

move.b #%11111111, $a03010 
lea textO,al 
move.1 #7,d0 
move.1 #15,dl 
bsr print 

lea textl2,al 
move.1 #9,d0 
move.1 #30,dl 
jsr print 
rts 


linksom: 

move.b #%11111110,$a03000 
;uitgang openzetten 
lea text3,al 
move.1 # 8, dO 
move.1 #15, dl 
bsr print 

;tekst op het scherm zetten 

cmp.b #$5f,toets 

;is de toets nog ingedrukt? 

beq linksom 

;ja — linksom 

lea textO,al 

move.1 #7,d0 

move.1 #15,dl 

bsr print 

;tekst weghalen 

move.b #%11111111,$a03000 
;uitgang uitzetten 
rts 

;en... weer terug 


rechtsom: 

move.b #%11111101,$a03000 
lea text4,al 
move.1 # 8, dO 
move.1 #15,dl 
bsr print 
cmp.b #$5d,toets 
beq rechtsom 
lea textO,al 
move.1 #7,d0 
move.1 #15, dl 
bsr print 

move.b #%11111111,$a03000 

rts 


achteren: 

move.b #%10111111,$a03010 
lea textl,al 

move.1 #8,d0 
move.1 #15,dl 
bsr print 
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cmp.b #$5b,toets 
beq achteren 
lea textO,al 
move.1 #7,d0 
move.1 #15, dl 
bsr print 

move.b #%11111111,$a03010 

rts 


voren: 

move.b #%01111111,$a03010 
lea text2,al 
move.1 #8,d0 
move.1 #15, dl 
bsr print 
cmp.b #$59,toets 
beq voren 
lea textO,al 
move.1 #7,d0 
move.1 #15,dl 
bsr print 

move.b #%11111111,$a03010 

rts 

grlinks: 

move.b #%11111110,$a03010 
lea text7,al 
move.1 #8,d0 
move.1 #15,dl 
bsr print 
cmp.b #$53,toets 
beq grlinks 
lea textO,al 
move.1 #7,dO 
move.1 #15,dl 
bsr print 

move.b #%11111111,$a03010 

rts 

grrechts: 

move.b #%11111101, $a03010 
lea text8,al 
move.1 #8,d0 
move.1 #15,dl 
bsr print 
cmp.b #$51,toets 
beq grrechts 
lea textO,al 
move.1 #7,d0 
move.1 #15, dl 
bsr print 

move.b #%11111111,$a03010 

rts 

omhoog: 

move.b #%11111011,$a03010 
lea text5,al 

move.1 # 8,dO 
move.1 #15,dl 
bsr print 
cmp.b #$57,toets 
beq omhoog 
lea textO,al 

move.1 # 7, dO 
move.1 #15,dl 
bsr print 

move.b #%11111111,$a03010 

rts 

omlaag: 

move.b #%11110111,$a03010 
lea text6,al 

move.1 # 8,dO 
move.1 #15,dl 
bsr print 
cmp.b #$55,toets 
beq omlaag 
lea textO.al 

move.1 #7,d0 
move.1 #15,dl 
bsr print 

move.b #%11111111,$a03010 

rts 
dicht: 


move.b #%11011111,$a03010 
lea text9,al 
move.1 # 8,dO 
move.1 #15,dl 
bsr print 
cmp.b #$4f,toets 
beq dicht 
lea textO,al 
move.1 #7,d0 
move.1 #15,dl 
bsr print 

move.b #%11111111,$a03010 

rts 
open: 

move.1 #%11101111,$a03010 
lea textlO,al 
move.1 #8,d0 
move.1 #15,dl 
bsr print 
cmp.b #$4d,toets 
beq open 
lea textO.al 
move.1 #7,d0 
move.1 #15,dl 
bsr print 

move.1 #%11111111,$a03010 

rts 

print: ;in het eigen window 

tekst zetten... 
move.1 intbase,a6 
move.1 windowhd, aO 

move.1 50(a0),a0 ;rastport van 

het window 

jsr printitext(a6) 
rts 

border: 

move.1 intbase,a6 
move.1 windowhd, aO 

move.1 50(a0),a0 ;rastport van 

het window 

jsr drawborder(a6) 
rts 

;alles (screen, window en libra- 
ries e.d.) afsluiten 

stoppen: 

move.1 intbase,a6 
move.1 windowhd,aO 

jsr closewindow(a6) ;eigen 

window sluiten 

move.1 intbase,a6 
move.1 screenhd,aO 

jsr closescreen(a6) ;eigen 

screen sluiten 

move.1 execbase,a6 
move.1 dosbase, al 

jsr closelibrary(a6) ;DOS libra- 
ry sluiten 

move.1 execbase,a6 
move.1 intbase, al 

jsr closelibrary(a6) ;intui- 

tion sluiten 

rts ;terug naar CLI 

/verschillende gegevens 

even 

screen_defs: 

dc.w 0,0,640,256,4 

dc.b 0,1 

dc.w $8000,15 

dc.1 0,screen_titel,0,0 

screen_titel: 

dc.b 'Quickshot Robotarm 0.9, 
alleen om te sturen - 1) demo',0 


even 


window 

defs: 


dc.w 0,10,640,246 


dc.b 0,2 


dc .1 $ 200 ,$ 100 f, 0 , 0 ,wind- 

ow naam 


screenhd: dc .1 0 

dc. 1 

0 

dc. w 

150, 50,320, 200 

dc.w 

15 

even 


window 

naam: 

dc.b 

'Voorbeeldje (c) Hans van 

der Pol 

voor Commodore Info',0 

even 


textO: 


dc.b 

0,1, 4 

even 


dc. w 

1,0 

dc .1 

4,txtO ,0 

dc.b' 

' , 0 

even 


textl: 


dc. b 

1 , 0 , 0 

even 


dc. w 

0,0 

dc .1 

0 ,txtl ,0 

dc.b 

'Yoh, ik ga naar achte- 

ren !',0 


even 


text 2 : 


dc .b 

O 

O 

even 


dc. w 

0,0 

dc .1 

0 ,txt 2,0 

txt 2 : 

dc.b 'Bingo, ik ga 

weer naar voren .',0 

even 


text3: 


dc.b 

O 

o 

1 —f 

even 


dc.w 

0,0 

dc. 1 

0 ,txt3 ,0 

txt3: 

dc.b 'Ik ga naar links 

tot ik 

er duizelig van word .',0 

even 


text4: 


dc.b 

1 , 0,0 

even 


dc. w 

0,0 

dc .1 

0 ,txt4 ,0 

txt4 : 

dc.b 'Zozo, gaan we 

naar rechts ?',0 

even 


text5: 


dc.b 

O 

o 

rH 

even 


dc. w 

0,0 

dc .1 

0 ,txt5 ,0 

txt5: 

dc.b ' Gaan we voor de 

verandering ook nog eens omhoog ?',0 

even 


text 6 : 


dc.b 

O 

o 

rH 

even 


dc. w 

0,0 

dc. 1 

0 , txt 6 , 0 

txt 6 : 

dc.b ' Hups , ik ga al 

omlaag, 

my master .',0 

even 


text7 : 


dc.b 

1 , 0,0 

even 


dc.w 

0,0 

dc. 1 

0 , txt7 ,0 
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txt7 : 

dc.b 

'De grijper 

draait naar links, 

goed he?',0 

even 



text8: 



dc.b 

H 

O 

O 


even 



dc.w 

0,0 


dc. 1 

0,txt8,0 


txt8: 

dc.b 

'De grijper 

draait naar rechts 

. (dankzij Danny 

& Hans )' 

, 0 


even 



text9: 



dc.b 

1, 0, 0 


even 



dc .w 

0,0 


dc. 1 

0,txt9,0 


txt9: 

dc.b 

'Pas op, het 

handje gaat sluiten.',0 

even 



textlO 



dc. b 

I- 1 

O 

o 


even 



dc.w 

0,0 


dc.1 

0,txtlO,0 


txtlO: 

dc.b 

'Grijper gaat 

open.',0 


even 



textll 



dc.b 

1,0,0 


even 



dc .w 

0, 0 


dc. 1 

0,txtll,0 


txtll: 

dc.b 

'Demo mode acti- 

vated.' 

0' 


even 



textl2 



dc .b 

0,1,4 


even 



dc .w 

1,0 


dc.1 

4,txtl2,0 



txtl2: dc.b 

even 

bordertje: 
tuur 

dc. w 0,0 

dc.b 5, 0,0,7 
dc.1 koord,0 


' , 0 


; border struk- 


koord: ; de 

rechthoek. 


7 coördinaten van de 


dc. w 
dc. w 
dc.w 
dc.w 
dc.w 
dc. w 
dc. w 


-15,-68 
500,-68 
500,-55 
175,-55 
175,-40 
-15,-40 
-15,-68 


even 
intbase: 
dosbase: 
windowhd: 
intname: 
brary',0 
dosname: 

end 


dc.1 
dc. 1 
dc. 1 
dc. b 

dc.b 


' intuition.li- 


’ dos.library',0 


Nu volgt er een BASIC programma 
om alle poorten een voor een open te 
zetten. (Gebruik hiervoor de toetsen: 
a t/m p) Dit is goed uit te proberen als 
u 16 ledjes aansluit op de 1/0 kaart. 
Hier komt het programma (AmigaBA- 
SIC). 

REM voor Commodore Info 

a=10498064 

b=10498048 

POKE 10498096,255: POKE 

10498080,255: REM Alles wordt uit¬ 
gang. 


POKE a,255: POKE b,255: 
uitgangen uitzetten. 


REM Alle 


loop : 
a$=INKEY$ 
c=ASC(a$) 

IF ca OR clll THEN loop 
IF cl04 OR co THEN GOSÜB loop2 
IF c97 OR ch THEN GOSUB loopl 
GOTO loop 


loopl: 

IF cl04 THEN loop2 
POKE b,255: POKE a, 
RETURN 


255-2 A (c-97) 


loop2: 

POKE a,255: 
RETURN 

END 


POKE b,255-2 A (c-104) 


Dit was een van de vele manieren om 
met de Amiga te interfacen. We hopen 
dat u er veel wijzer van bent gewor¬ 
den. Wij stonden ook op de HCC da¬ 
gen met de robotjes en andere zelf 
bouw projecten (Laserbuis gestuurd 
door de Amiga, MIDI interfaces, Sam¬ 
plers en Slow down om de Amiga stil 
te zetten enz.). 

Danny Brandt ontwikkelde de hardwa¬ 
re en Hans van der Pol schreef de 
software. 


Ze zijn te bereiken voor reakties 
ed. via de redaktie: Postbus 
43048,1009 ZA Amsterdam 


Is The Amiga A Business Machine ? - Can it stand up? 




An ange 

A Z N E 


M STEREO 


Volume L Number 4 THE DISK MAGAZINE FOR THE AMIGA 


SALASAN 


Kwaliteitssoftware voor de Amiga 


Postbus 5570,1007 AN Amsterdam 
Telefoon: 020-273198 


Bestellen door 
overmaking van 
ƒ 45,- op giro 
5641219 van Sa- 
lasan Amster¬ 
dam, onder ver¬ 
nieling van ‘Ami 
Exchange'. 


Gif & IKorsh Dnternational 
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Op de computerbeurzen in de Verenigde Staten speurden we de afgelopen maanden 
weer naar Commodore nieuws. Dat wordt relatief zeifzaam, maar een lang gesprek 
met Amiga opperhoofd Gail Wellington, vrijwel de enige oudgediende uit het Jack Tra- 
miel tijdperk, bracht ons weer up to date. Zij is vol met plannen en gaf ons veel techni¬ 
sche informatie. 

Nieuws USA style 


A 2286 Bridgeboard en Amiga PVA 

P raten met iemand, die nog weet wat een PET was, die nog weet hoe er 
een 8000 serie model micro was, ontworpen door Porche, dat is een ver¬ 
ademing in een bedrijf, waar vrijwel iedereen nieuw is. Men weet binnen 
Commodore nauwelijks meer iets van de historie en wat betreft de low-end 
machines, het lijkt of men zich daar te goed voor voelt. Zelfs foto’s en nieuws 
over de Amiga zijn, juist op het hoofdkwartier in Westchester, nauwelijks te 
vinden. 

Onze oude vriendin, steun en toever¬ 
laat Gail Wellington, ooit de marketing 
manager van Commodore Engeland, 
later teruggevallen en nu weer opge¬ 
klommen tot general manager van de 
Amiga software en poduct support ac¬ 
tiviteiten, komt te hulp. Met stapels 
foto’s, veel nieuws, maar ook met de 
boodschap dat Commodore in Europa 
toch wel zijn heil zoekt in de zakelijke 
markt. De verkoopsuccessen van de 
PC’s, ook in ons land de afgelopen 
maanden rond de 10.000 stuks, ge¬ 
ven de Amerikaanse directie zelfver¬ 
trouwen. Henri Rubin, nu de CEO 
(hoogste actieve directeur) van Com¬ 
modore, heeft de ontwikkelstaf vooral 
aan technische hoogwaardige verbe¬ 
teringen voor de PC lijn en de Amiga 
laten werken. De reeks noviteiten, 
waarvan we in ieder geval de foto’s en 
technische details van Gail kregen, is 
indrukwekkend. Of het allemaal werkt, 
zullen we vast in Hannover zien, de 
traditionele plek waar Commodore 
zijn nieuwtjes aan de wereld laat zien. 

C-64 verkopen 

Het succes van de C-64 is ook in de 
VS, waar Commodore veel meer dan 
hier een huiscomputer image heeft, 
nog lang niet ten einde. Men verkoopt 
er nog honderdduizenden van, al gaat 
dat steeds minder via computerwin¬ 
kels. De C-64 en C-128 gaan nu voor¬ 
al in K-Mart-achtige warenhuizen en 
kinderspeelgoedzaken over de toon¬ 
bank. De software ervoor is relatief 
goedkoop geworden, de prijzen over¬ 
schrijden zelden de 30 dollar. Alleen 
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top-softwarehuizen als Electronic Arts 
weten soms 50 of 60 dollar voor een 
top-spel te vangen en ook geavan¬ 
ceerde programmeertalen als Super 
Pascal en Super C (beide van Aba¬ 
cus/Data Becker) kosten meer. Maar 
daarmee kan men, met name in het 
onderwijs, dan weer aansluiten bij het 
gebruik van zwaardere systemen. 
Minder educatief, maar wel lekker pri¬ 
mitief en gewelddadig zijn de worstel- 
mania spellen. Met als basis een 
Game-Match disk met Hulk Hogan, en 
een hele reeks extra spelschijven met 
andere krachtpatsers kan men nu de 


WW F ( de World Wrestling Federatie, 
bij satellietkijkers al bekend) al mat¬ 
ches naspelen. Dit programma komt 
van Microleage Sports. Lekker vech¬ 
ten, met alle show-effecten, maar zon¬ 
der dat er bloed vloeit. 

Electronic Arts 

Een klasse apart blijft Electronic Arts, 
dat nu zowat alle losse softwarehui¬ 
zen onderzijn banier verzameld heeft. 
De software, die men uitbrengt, is er 
meestal ook in een C-64 versie, ai lijkt 
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de Amiga de lieveling van EA te blij¬ 
ven. 

Geos-varia 

Het paraplu-programma Geos voor de 
Commodore 64 is relatief populair, ze¬ 
ker bij het educatieve gebruik op 
scholen. Het kost in de VS, met tax en 
versturen, tegen de 70 dollar, niet be¬ 
paald goedkoop. We hebben het altijd 
jammer gevonden, dat Geos zo duur 
was en is, het maakt de C-64 zo veel 
aardiger en moderner, waarom de 
zaak niet voor een prikje een breed 
publiek geven. 

De nieuwste GEOS 2.0 versie, al weer 
een paar maanden (sinds de eerste 
officiële introductie in ons land op de 
Computer Info beurs) te koop, zij het 
met nalevering van een upgrade, doet 
het goed. Door allerlei Utilities, zoals 
Textgrabber kan men nu tekstfiles 
vanuit allerlei andere pakketten naar 
Geos (GeoWrite) halen, en ook de in¬ 
terne file-uitwisseling tussen de diver¬ 
se Geos-pakketten maakt het leven 
steeds gemakkelijker. De data, die in 
GeoCalc, GeoFile, GeoDex zitten, 
kunnen goed gebruikt worden in bij¬ 
voorbeeld GeoMerge, de mail-merge 
truc voor GeoWrite. Men levert nu in 
de VS bij Geos 2.0 ook een reeks 
Geos applicaties, die vroeger los wa¬ 
ren, zoals GeoWrite 2.1 en het hier 
minder bruikbare GeoSpell. Dat 
maakt het allemaal wat leuker. 

De nieuwere Geos compatibele tekst- 
pakketten, zoals Word Publisher van 
Spinnaker, zijn zeer intuitief, dus een¬ 
voudig te gebruiken en behoorlijk 
krachtig. Vooral de snelheid is opval¬ 
lend, Geos heeft met al die screen- 
fonts de neiging programma’s te traag 
te maken, bij dit programma houdt 
men het bij de ouderwetse tekenset, 
direct uit de ROM. 

Maar Word Publisher blijft een 40 ko- 
loms pakket, het gebruik van format- 
ting tekens in de tekst is verwarrend, 
de WYSIWYG preview maakt dat 
maar ten dele goed, zelfs bij een aan¬ 
gename snelheid voor tekstinvoer. 
Dat men nu met Geos applicaties ook 
PostScript printers kan aansturen, is 
dan weer meegenomen, al zullen er 
niet veel C-64 gebruikers zijn, die toe¬ 
gang tot zo’n dure laserprinter heb¬ 
ben. 

Vensters zijn in. Men vindt zo’n ven- 
steraanpak meer lijken op wat Apple 
de mensen heeft aangepraat als de 
ideale (WIMPS) venster-ikonen- mui- 
zen-menu aanpak. En dat is tegen¬ 
woordig zo’n beetje de universele 
waarheid geworden, ook voor IBM 
met zijn nieuwe Presentation Mana¬ 


ger voor de PS/2 serie is het allemaal 
vensters wat de klok slaat. 

PC richting 

IBM heeft het wat moeilijk om iede¬ 
reen ervan te overtuigen, dat haar 
keus voor weer een iets ander PC ar¬ 
chitectuur de juiste is, 

Het aanbod aan ‘oude’ model machi¬ 
nes, het gaat met name om de busar- 
chitectuur, schijnt alleen nog maar toe 
te nemen. Dat betekent ook voor 
Commodore, dat de PC-1 en andere 
IMS-DOS modellen het heel aardig 
blijven doen. Men heeft ook AT’s en 
wat zwaardere PC modellen uitge¬ 
bracht. Daarbij moet men niet verge- 


GEOS 
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ten, dat Commodore in de VS bepaald 
geen image als serieuze zakenmicro 
heeft. 

Amiga 500 Harde schijf 

De Amiga 500 wordt gezien als het in¬ 
stapmodel van de Amiga reeks, maar 
gaat ondertussen op zichzelf een aar¬ 
dige ontwikkeling doormaken. Met 
name de aankondiging van een harde 
schijf eenheid met ingebouwde ge- 
heugenuitbreiding voor de A-500 van 
Commodore zelf is belangwekkend. 
Met een 20 MegaByte harde schijf en 
ruimte voor tot 2 MB extra RAM ge¬ 
heugen zijn de opslag en disk-toe- 
gangsproblemen vrijwel verdwenen. 
Een harde schijf werkt snel en be¬ 
trouwbaar en maakt het gebruik van- 
software met meer ‘swap’ gedeeltes 
praktisch. Even een stukje data of pro¬ 
gramma uitwisselen met de de schijf 
gaat namelijk heel snel, zodat het vrij¬ 
wel onmerkbaar wordt. 

De A590 harde schijf zit in een apart 
kastje, dat wel aan de A-500 past en 
er heel netjes zonder veel kabels etc. 
mee verbonden is via de adapter/con- 
nector. Helaas wel met een losse voe¬ 
ding, daar schijnen ze bij Commodore 
nu eenmaal aan te hechten (het is na¬ 
melijk makkelijk wanneer men een 
model wil maken en per land alleen de 
stroom-trafo hoeft om te ruilen). De 
schijf interface gaat tamelijk snel, door 
de gebruikmaking van de echte DMA 
interface tussen bus en schijf. De 
snelheid is 2.4 Megabit/s, voor de 
technici, dat is ongeveer 3 maal zo 
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snel als bij een PC harde schijf. Voor 
wie nog verder wil uitbreiden zit er op 
de A590 nog een extra SCSI interface. 
Voor de 500 is ook een losse geheu- 
genuitbreiding tot 1,5 MB mogelijk, 
door een module tussen processor en 
processorvoet te plaatsen. Zelfs voor 
de Amiga 1000 wordt een geheugen- 
uitbreiding leverbaar, maar wie dat 
eventueel in Nederland gaat verkopen 
is nog niet bekend. 

80286 Bridgeboard 

Toen Commodore Nederland een 
paar maanden geleden aan minister 
Deetman in een open brief Amiga 
2000 met 80286 Bridgeboards aan¬ 
bood, was daarmee het nieuws wat 
voortijdig weggeven. Pas de afgelo¬ 
pen weken blijkt deze veelbesproken 
8 Mhz 80286 coprocessor-kaart ook 
werkelijk op te duiken, in Duitsland 
heeft men er naar zeggen een paar. In 
de VS werden ze wel gedemon¬ 
streerd, meekrijgen was er nog niet 
bij. Inmiddels is de AT-Bridgeboard 
echter ook in Nederland leverbaar. 
Deze extra kaart maakt van de Amiga 
2000 een echte AT-achtige, waarmee 
de MS-DOS prestaties natuurlijk be¬ 
hoorlijk worden opgekrikt. Met de spe¬ 
ciale Janus Services Software kan 
men de twee processors en vooral het 
geheugen en de diskdrive dan gebrui¬ 
ken. Een goed gekozen naam, de Ja¬ 
nuskop kijkt naar twee kanten tegelijk. 
In een Amiga met zo’n kaart kan men 
in twee verschillende beeldvensters 
twee schermen met verschillende pro¬ 
gramma’s uit verschillende Operating 
Systemen laten zien, de ultieme ‘con¬ 
current’ multitasking. Daarbij was uit¬ 
wisseling van informatie tussen de di¬ 
verse vensters ook mogelijk. 


De nieuwe AT Bridgeboard heet 
A20286, past in de Amiga 2000, heeft 
een MegaByte aan RAM op de kaart 
en wordt geleverd met een in de Ami¬ 
ga te monteren 5,25 inch floppy drive 
met een capaciteit van 1,2 MB voor de 
compatibilit met de AT-High Density 
floppies. Het RAM geheugen is ‘dual- 
port’, omdat het zowel verbonden is 
met de 80286 als met de Amiga bus. 
De Amiga-muis werkt zowel met de 
MS-DOS applicaties als de Amiga 
software. Transfer van files tussen de 
beide ‘kanten’gaat met behulp van 
wat utility software. Door de Janus 
Service software kan men nu zelfs de 
andere processor gebruiken bij reke¬ 
nintensieve taken, bijvoorbeeld wan¬ 


neer de Intel chip als hulpje wordt in¬ 
gezet bij schermintensief Amiga ge¬ 
bruik. Wie helemaal snel wil werken, 
kan nog een 80287 co-processor op 
het Bridgeboard zetten en men kan 
ook nog extra AT en XT uitbreidings¬ 
kaarten gebruiken (3 sleuven voor b.v. 
harde schijf controller). De A20286 
bestaat uit een kaart met de hoofdpro¬ 
cessor en piggy-back een andere 
kaart met daarop o.a. het RAM-ge- 
heugen (1 MB) en de disk-controller. 
Dit systeem zou inderdaad voor het 
onderwijs veel voordelen kunnen heb¬ 
ben, het is zeer universeel en laat ook 
creatief computergebruik makkelijker 
toe dan een MS-DOS systeem. 

Hl-res op Amiga 

Wie nog niet helemaal tevreden is met 
de Video-kwaliteit of video-snelheid 
van de Amiga heeft nu uitzicht op een 
nieuwe supersnelle Ultra-high Reso- 
lution Display System kaart voor de 
Amiga. Die past dan ook weer bij de 
hierna beschreven PVA kaart, maar 
laat gebruik van Megapixel buizen 
(dus met 1 miljoen pixels) toe. Door op 
de nieuwe video-kaart, ontwikkeld sa¬ 
men met de universiteit van Lowell in 
de VS, een Texas Instruments TMS 
34010 chip te gebruiken, haalt men 
het onderste uit de video-kan. Die co- 
processor chip haalt in zijn eentje al 6 
MIPS, maar kan door eigen DMA toe¬ 
gang tot de bus ook werk uit handen 
van de Amiga hoofdprocessor nemen 
of zelf data opnemen, verwerken en 
naar de beeldbuis sturen. Met deze 
kaart zouden schermen tot 1024 x 
1024 pixels (in kleur) aangestuurd 
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Amiga 500 met de A590 harddisk (20 MB plus geheugenuithreiding 


kunnen gaan worden. Daarvoor is dan 
wel een speciale monitor nodig, zoals 
een Nee Multisync. 

Video 

Op het videogebied wordt de Amiga 
ook steeds knapper. Men probeert 
met name de professionele video-ge- 
bruiker naar de Amiga te lokken. Dank 
zij de Genlocker is die markt op gang 
gekomen, en nu zijn er weer verdere 
ontwikkelingen. Commodore heeft sa¬ 
men met het New York Institute of 
Technology’s Computer Graphics La- 
boratory (zeg maar CGL) een PVA of¬ 
wel professionele video adapter uitge¬ 
bracht. Te koop in de USA onder num¬ 
mer A2350. CGL had al eerder derge- 
lijke techniek gebruikt, met name het 
Agile-2000 ADS video-editing sys¬ 
teem, maar dat kost een veelvoud van 
de opzet met de Amiga 2000 en de 
PVA. Dat is in wezen een combinatie 
van een Genlock, een real-time Fra¬ 
me Grabber om beeldjes te ‘vangen’ 
en om te zetten naar Amiga formaat 
(ook HAM-mode) en de daarvoor be¬ 
nodigde software. Daarmee kunnen 
Amiga plaatjes worden gecombineerd 
met ‘live’ videobeelden, direct naar de 
buis of naar de VCR. Dit gaat heel wat 
verder dan hier en daar eens een titel¬ 
tje onder zetten, hiermee kan men 
echt professionele animaties, interac¬ 
tieve video’s en multi-layer video-ef- 
fecten bereiken. Grijp een beeldje bij 
de kraag via de Frame Grabber en 
dan kan'dat helemaal off-line bewerkt 
worden, voor het weer teruggaat als 
live-video. Opslag als gebruikelijk in 
IFF formaat, langzamerhand de stan¬ 
daard. 

PVA 

Om met deze PVA goed te kunnen 
werken, heeft CGL een apart soft- 
ware-palkket ontworpen, waarbij men 
een aantal tools gebruikt, die normaal 
alleen op professionele video-editing 
workstations mogelijk zijn. Een voor¬ 
beeld hiervan is om een opgeslagen 
beeldje rond een ander voorwerp op 
het scherm te wikkelen. 

Het is de bedoeling, om in de toe¬ 
komst steeds meer software over te 
brengen van het Agile-2000 systeem, 
dat onder Unix werkt, naar het Amiga 
platform. Het PVA systeem zal tegen 
de zomer commercieel verkrijgbaar 
zijn, verwacht Commodore. 

Een ander video-systeem voor de 
Amiga is het MediaPhile audio/video 
editing, database en playback sys¬ 
teem. Het is gemaakt door Interactive 
Microsystems Ine. in de VS. Het sys¬ 
teem kan zowel VHS, Super VHS, Be- 


tamax als 8 mm video aan. Er zijn mo¬ 
gelijkheden voor speciale effecten, 
overlays van computer graphics op vi¬ 
deo. Daarnaast is het mogelijk een 
database van stilstaande videobeel¬ 
den op te bouwen. De infrared control¬ 
ler in het systeem kan de infra-rood 
stralen van de afstandsbediening van 
de videorecorder opvangen. Er zijn 
verschillende software-pakketten te 
gebruiken en er is een Programmer’s 
Toolkit voor het zelf ontwikkeleninge. 

De Transputer Toekomst 

De laatste jaren schijnt het bij Com¬ 
modore weer de gewoonte te worden, 
vooral ver in de toekomst te blijven kij¬ 
ken. Of dat nu zo realistisch is, blijft de 
vraag. In ieder geval heeft men (nog 
verder dan de Unix perspectieven) 
ook een Transputer Systeem voor pa¬ 
rallel processing in het verschiet. Niet 
zozeer als een apart systeem, maar in 
de co-processor traditie, die de Amiga 
nu langzamerhand begint te kenmer¬ 
ken. (Wanneer maakt men nu eens 
een Amiga coprocessor voor C-64 
programma’s). 

Transputer Amiga 

De Transputer is een heel krachtige 
processorchip, die door een bijzonde¬ 
re architectuur ook geschikt is voor 
koppelwerken, om maar eens een an¬ 
der woord voor ‘parallel processing’te 
gebruiken. Binnen de normale Amiga 
kan men, door de multi-tasking en 
busmaster aanpak van de Amiga, ook 


nog een kaart met zo’n Transputer bij¬ 
plaatsen. Men beweert dan ‘super- 
computing’ rekenkracht te bereiken. 
De parallel rekenarij wordt bereikt, 
doordat men meerdere (transputer) 
processors ieder een stukje van een 
(speciaal geprogrammeerd) program¬ 
ma laat afwerken. Die aparte chips 
hebben dan ieder een klein stukje 
privé geheugen, waarop ze bijvoor¬ 
beeld een bepaalde prograrmmaloop 
met ‘lokale’ variabelen uitwerken. De 
door Commodore gebruikte Transpu¬ 
ter chips komen van Inmos, het type- 
nummer is T414 en het is een 15 MHz 
32 bits processor met 2KB aan zeer 
snel 50 ns geheugen. Er is ook een 
optionele T800, die nog sneller is. 
Wanneer men eenmaal een systeem 
met de T414 heeft, kan de T800 een¬ 
voudig gewisseld worden. Wat reken¬ 
cijfers: de T800 kan 10 Miljoen bewer¬ 
kingen per seconde aan (10 MIPS) en 
1,2 Miljoen floating point berekenin¬ 
gen (1,2 MFLOPS). Door combinatie 
van Transputer chips kan dat zelfs 
nog sneller en krachtiger worden. Om 
dit allemaal te kunnen besturen, 
maakt Commodore gebruik van het 
Helios operating systeem. Op dit mo¬ 
ment kan men al werken met micro- 
floppy drives en met harde schrijven, 
die op een vergelijkbare manier als in 
Unix worden aangesproken. 
Commodore heeft de bedoeling, deze 
Amiga-Tansputer techniek eerst expe¬ 
rimenteel ter beschikking te stellen 
aan universiteiten en research-instel- 
lingen. 
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Een nieuw jaar, een nieuwe start voor de CLI cursus. We gaan het hebben over de 
nieuwe Workbench voor de Amiga’s, de Workbench versie 1.3. Enige voorzichtigheid 
is nog wel geboden daar wij nog met de omega release werken. Toch ligt het niet in de 
lijn der verwachtingen dat er nog veel zal veranderen met de uiteindelijke versie die op 
de markt zal komen. 


Binnenin AmigaDOS (5) 



W orkbench v.1.3 is de nieuwste DOS voor de Amiga 500,1000 en 2000. 

Samen met de verbeteringen in het besturingssysteem, namelijk Kick¬ 
start v.1.3 zal dit voortaan op de nieuwe Amiga’s worden geleverd. Velen on¬ 
der u zullen ondertussen al een illegale copie hebben weten te bemachtigen, 
echter dit zal in 95 procent van de gevallen een copie van een copie etcete- 
ra, uit Duitsland zijn. 


Bij Commodore zijn ondertussen de 
ergste ‘bugs’ er uit gehaald zodat er 
tussen de ‘gamma’ release, welke de 
illegale copie uit Duitsland betreft, en 
de ‘omega’ release, al weer enige ver¬ 
schillen zijn. 


Nieuwe eigenschappen 

Wat is er nu in het kort nieuw bij geko¬ 
men? Ten eerst, nieuwe CLI instruc¬ 
ties. Avail, CMD, EVAL, FastMem- 
First, FF (FastFonts), FixFonts, Ge- 
tenv, Graphicdump, Iconx, Initprinter, 
Look, More, RemRad, Resident, Say, 
Setenv, SetFFS, Setpatch en Which. 
Vrijwel alle CLI commando’s hebben 
verbeteringen ondergaan. Ze vervul¬ 
len beter of sneller hun taak. Een aan¬ 
tal nieuwe Handlers en Devices zijn 
ontwikkeld, onder andere voor gebuf¬ 
ferde seriële in en uitvoer (=AUX), een 
resetvrije ramdisk (=RAD), een 
spraak handler (=SPEAK), een tijdelij¬ 
ke variabelen handler (=ENV) en een 
handler die er voor zorgt dat commu¬ 
nicatie tussen twee DOS tasks wat 
simpeler verloopt (=PIPE). De tekst- 
uitvoer wordt door middel van de utili- 
ty FastFonts (FF) ongeveer vier keer 
zo snel. Door middel van het FastFi- 
ling Systeem wordt de lees en schrijf¬ 
snelheid van harddisks aan de Amiga 
flink opgekrikt. Er zijn nieuwe printer- 
drivers ontwikkeld waarmee beter en 
met hogere snelheid grafische scher¬ 
men afgeprint kunnen worden. Tot slot 
zijn de mathematische bibliotheken 
volledig herschreven. Dit zorgt ervoor 
dat de rekenroutines sneller verlopen. 
Ook wordt een eventuele coprocessor 
(MC68881) automatisch waargeno¬ 
men en gebruikt. 


Programmeeromgeving 

Na het aanklikken van het icon van de 
nieuwe Workbench schijf is er meteen 
een ding wat opvalt. Het icon SHELL. 
Dit blijkt een nieuwe DOS omgeving te 
zijn. Vanuit deze DOS omgeving zul¬ 
len we dan ook onze CLI cursus ver¬ 
volgen daar in deze DOS omgeving 
alle WB 1.3 commando’s volledig tot 
hun recht komen. De eerste comman¬ 
do’s die we bespreken hebben rechts¬ 
treeks invloed op deze programmeer 
omgeving. 

Resident 

Meteen een van de ‘hotste’ items in 
deze nieuwe SHELL. Het Engelse 
woord ‘resident' verraad eigenlijk al de 
functie van het commando. 
RESIDENT zorgt er voor dat com¬ 
mando’s in het geheugen geladen 
worden. Het is dus niet meer nodig de 


commando’s eerst van schijf in te la¬ 
den. Ze kunnen meteen gebruikt wor¬ 
den. Dit scheelt weer aanzienlijk in tijd 
en ergenissen nietwaar? De syntax 
van het commando RESIDENT is: 

RESIDENT filenaam [REMOVE] 
[ADD] [REPLACE] [PURE] [SYS¬ 
TEM] 

Bij RESIDENT zijn weer, zoals u al 
heeft kunnen zien, een aantal opties 
te onderschijnen. 

REMOVE : Door REMOVE achter de 
filenaam te vermelden zorgt u er voor 
dat het CLI commando dat resident 
gemaakt was uit de lijst verwijdert 
wordt. 

ADD : Hiermee voegt u het CLI com¬ 
mando, waarvan u de naam achter 
RESIDENT hebt ingevuld, toe aan de 
lijst. 

REPLACE: Met de optie REPLACE is 
het mogelijk een commando, dat al in 
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de resident lijst vermeld is, opnieuw in 
te laden onder dezelfde naam in de re¬ 
sident lijst. Dit kan handig zijn als een 
resident commando beschadigd is. 
PURE: Om een CLI commando resi¬ 
dent te maken moet het ‘pure’ bit ge¬ 
zet zijn. Als dit niet het geval is kunt u 
dit bit beïnvloeden en daarmee RESI¬ 
DENT te forceren het commando te 
laden. Het commando zal nu in eerste 
instantie wel werken maar dat wil niet 
zeggen dat het meteen OK is. Probeer 
het nog een keer. Goed, u krijgt een 
‘Guru’. Dus dit commando kan niet re¬ 
sident gemaakt worden. Jammer! 
SYSTEM : Als laatste is er dan nog de 
optie SYSTEM. Als u SYSTEM ver¬ 
meldt na het opgeven van de filenaam 
van het commando dat u resident wilt 
maken, dan zal er voor gezorgd wor¬ 
den dat het commando toegevoegd 
wordt aan de system lijst. Het is niet 
meer mogelijk dit commando te ver¬ 
wijderen uit de resident lijst. Als u de 
optie SYSTEM meteen achter RESI¬ 
DENT vermeldt dan zal de gehele re¬ 
sident lijst inclusief de system lijst af¬ 
geprint worden. 


is de ‘%S’ optie. Hiermee wordt de vol¬ 
umenaam en de actuele directory- 
naam afgebeeld. Om nu de standaard 
tekst te krijgen, type u in, PROMPT 
"%N.%S " 


Alias 

Stel u wilt een ‘clear screen comman¬ 
do’ maken. U zult nu in C een routine 
op moeten zetten die het gehele 
scherm schoon maakt. Iets dergelijks 
bestond al in CLI, immers ECHO 
"*ec". Toch wilt u hiervoor een apart 
commando creëren. Met behulp van 
de ALIAS kunt u uzelf voor de gek 
houden. Om dit voorbeeld nu aan te 
houden, we typen in: ALIAS clear 
echo "*ec". 

De DOS omgeving zorgt ervoor, iede¬ 
re keer als u CLEAR intypt, dat dit ver¬ 
taald wordt naar ECHO "*ec". Dit ziet 
u natuurlijk niet dus lijkt het net of er 
een nieuw commando bijgekomen is. 
ALIAS zorgt ervoor dat een ‘gealia- 
sed’ commando, wordt vertaald naar 
de alias string. Dit is uitvoerbaar door 
DOS, en voila, daar is het beoogde (of 



Prompt 

Een van de nieuwe eigenschappen 
van de nieüwe SHELL is dat de volu¬ 
me naam van de schijf en de actuele 
directory wordt afgebeeld. Dit is in te 
stellen met de nieuwe mogelijkheden 
van het PROMPT-commando. De 
functie van PROMPT is nog steeds 
hetzelfde: het geeft de mogelijkheid 
om de tekst aan het begin van elke 
DOS regel aan te passen. De algeme¬ 
ne syntax is: PROMPT "tekst". 
Tussen de twee aanhalingstekens zijn 
twee opties nog van belang. Uit Work- 
bench vl .2 kent u nog wel de ‘%N’ op¬ 
tie. Deze zorgt ervoor dat het actuele 
tasknummer wordt afgebeeld. Nieuw 


niet beoogde) resultaat. De syntax 
van ALIAS luidt: ALIAS alias alias 
string 

Alles wat u achter ‘alias’, dus het 
woord dat vertaald moet worden, in¬ 
typt zal door het vertaalde DOS com¬ 
mando ‘opgepikt’ worden. Tevens is 
het mogelijk de achter de ‘alias’ inge¬ 
typte tekst binnen de ‘alias’ te betrek¬ 
ken. Dit doet u door middel van de 
twee vierkante haken '[’ en ‘]’. Een 
voorbeeld uit de nieuwe Startup Se- 
quence van WB 1.3, alias xcopy 
copy [] clone. Nu wordt dus de ach¬ 
ter XCOPY ingetypte tekst binnen de 
twee keywords ‘copy’ en ‘clone’ ge- 
plaats. Wat ‘clone’ inhoudt zullen we 
later bij de behandeling van het COPY 


commando zien. Als u nu wilt zien wat 
voor ‘aliases’ u ingesteld heeft, typ ge¬ 
woon in ALIAS en er zal een hele rij 
van ‘aliases’ over uw beeld rollen. 

Het script bit 

Met deze nieuwe Workbench zijn er 
een hele serie nieuwe statusbits bijge¬ 
komen. Al reeds bekende voor u wa¬ 
ren de ‘rwed’ bits. Dit waren de Read, 
Write, Executable en Delete. Nu zijn 
er nog bijgekomen ‘hspa’. ‘h’ Staat 
voor Hidden, terwijl ‘s’ voor Script 
staat, ‘p’ is van belang bij het RESI¬ 
DENT commando, dit is immers het 
Pure bit. Als laatste is er dan nog de 
‘a’. Dit betekent Archive. Van belang 
is nu het ‘s’, ofwel het Script bit. Als u 
dit Script bit zet, met behulp van het 
PROTECT commando, dan is dit 
batch bestand uit te voeren zonder dat 
u EXECUTE ervoor hoeft in te typen. 
De DOS commando kijkt naar het 
Script bit en zal het EXECUTE com¬ 
mando zelfstandig inladen. 

Nieuwe interface 

Hoe vaak heeft u zich er niet aan ge¬ 
ërgerd? Je typt een ellendig lange re¬ 
gel in, bijvoorbeeld bij ALINK of BLINK 
van de Lattice compiler, blijkt er een 
foutje te staan. De enigste twee oplos¬ 
singen waren dan of een RETURN te 
geven en de foutmeldingen botweg te 
negeren, of met BACKSPACE de hele 
regel te wissen en opnieuw in te ty¬ 
pen. Dit is niet meer nodig met de 
nieuwe Workbench. Hierbij is een 
nieuwe commandline interface ont¬ 
wikkeld waarbij de CRSR BACK en 
CRSR FRWRD een functie hebben. U 
kunt met deze twee toetsen over uw 
regel gaan, de fout verbeteren en dan 
de RETURN te geven. Als u al een 
RETURN gegeven hebt beschikt de 
NEWCON handler ook nog over een 
zogenaamde ‘History buffer’. Met 
behulp van de CRSR UP & DOWN 
toetsen kunt u door uw vorig ingetyp¬ 
te DOS regels bladeren. Simpelweg 
de goede uitkiezen, de fout verbete¬ 
ren en weer RETURN geven. O, wat 
een heerlijke verbetering! 

Nog meer nieuwe 
commando’s 

Zo, in het voorgaande hebben we het 
gehad over de nieuwe SHELL, en wat 
voor mogelijkheden deze biedt. Dit is 
nog niet alles, er zijn meer nieuwe 
commando’s bijgekomen. We bespre¬ 
ken ze in alfabetische volgorde. 
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Type 

Available 

In Use 

Maximum 

Largest 

Chip 

XX 

XX 

XX 

XX 

Fast 

XX 

XX 

XX 

XX 

Total 

XX 

XX 

XX 

XX 


afb.l. 

Avail 

Het commando AVAIL geeft aan hoe¬ 
veel FAST en hoeveel CHIP RAM u 
nog vrij heeft. De syntax van ALIAS is: 
AVAIL [CHIP|FAST|TOTAL] 

Na het indrukken van de RETURN 
toets komt dan, als u gewoon AVAIL 
in getypt heeft, de volgende tabel op 
het beeldscherm te staan: zie afb. 1. 
Er wordt aangegeven hoeveel Fast en 
ChipRAM u tot uw beschikking heeft, 
hoeveel in gebruik is, hoeveel maxi¬ 
maal vrij is en wat het grootste niet ge¬ 
reserveerde blok geheugen is. Door 
de keywords CHIP, FAST en TOTALte 
gebruiken krijgt u alleen een getal op 
het beeldscherm, wat de hoeveelheid 
vrije geheugen van het opgegeven 
type voorsteld. 

Clock 

Een nieuw CLI commando wat eigen¬ 
lijk al bestond. Ja, we weten het, dit is 
een zeer tegenstrijdige redenering 
maar we willen er mee aangeven dat 
de utility CLOCK voorheen alleen te 
bereiken was door het van uit de 
Workbench aan te ‘klikken’. Nu is dus 
ook mogelijk vanuit CLI te activeren. 
De syntax van CLOCK is een pittige: 
CLOCK [ANALOG|DIGITAL|DIGI- 
TAL2] [=x,y, hoogte, breedte] 

[12HOUR|24HOUR] [SECONDS] 
[DATE] 

De opties ANALOG of DIGITAL of Dl- 
GITAL2 bepalen wat voor soort klok 
op het beeldscherm komt te staan. DI¬ 
GITAL en DIGITAL2 zorgen ervoor 
dat er een digitale, dus cijfer, klok op 
het beeldscherm komt te staan. De 
optie ANALOG zorgt voor een analo¬ 
ge klok. Vervolgens de positioneer op¬ 
ties, x,y, breedte en hoogte. Hiermee 
is de klok op een bepaalde positie op 
het beeldscherm te zetten. Ook kan 
bepaald worden hoe hoog en breed 
ze moet zijn. Vervolgens de keuze 
tussen 12HOUR en 24HOUR. Dit 
spreekt eigenlijk ook voor zichzelf. 
Met de 12HOUR optie wordt bij een di¬ 
gitale klok tot 12.00 uur geteld. Daar¬ 
bij wordt AM of PM vermeld. Een ana¬ 
loge klok zal alleen AM of PM vermel¬ 
den. Als de optie SECONDS gebruikt 
is zal de seconden wijzer afgebeeld 
worden. Tenslotte als laatste de optie 
DATE. Hiermee wordt de datum onde¬ 
rin het klokvenster afgebeeld. 


Clockptr 

Volgens ons is dit meer 
een ‘leukigheid’ bij deze 
DOS versie dan echt 
nuttig maar desalniette¬ 
min is het nieuw, dus we 
zullen het maar behan¬ 
delen. Met CLOCKPTR wordt de 
muiswijzer verandert in een kleine di¬ 
gitale klok. Om de datum te zien, be¬ 
weeg de muispointer helemaal naar 
links. Ook kunnen minuten en secon¬ 
den afgebeeld worden. Hiervoor dient 
u de muispointer helemaal naar links¬ 
boven te bewegen. De syntax van 
CLOCKPTRis: CLOCKPTR. Ze is in 
samenhang met het RUN commando 
te gebruiken. Daardoor wordt het 
CLOCKPRT commando als achter- 
grondtaak opgestart. 



li,-' 

CMD 


CMD, in de oren van de 64 en 128 be¬ 
zitters klinkt dit wel enigszins bekend 
in de oren. CMD dient om de stan¬ 
daard uitvoer om te leiden naar een 
ander device. In AmigaDOS heeft 
CMD nu ook een soortgelijke functie. 
Dit geldt echter alleen voor parallele 
en seriële uitvoer. Het is mogelijk 
seriële en parallele uitvoer om te lei¬ 
den naar een file om eerst het resul¬ 
taat te bekijken. Dit kan bijzonder han¬ 
dig zijn als u een uitdraai wilt maken 
van een file maar u weet niet hoe het 
er uit gaat zien. De syntax van CMD: 
CMD [s] [m] [n] devicenaam file¬ 
naam 

De devicenaam kan ofwel "serial" of 
"parallel"zijn. Voor filenaam wordt de 


naam van de om te leiden file inge¬ 
vuld. Dan zijn er nog 3 opties bij CMD. 
s : zorgt ervoor dat een korte voorloop 
bij een print, om bijvoorbeeld de prin¬ 
ter te ‘resetten’, wordt verwijdert uit de 
file. 

m : MULTIPLE files. Als u meerdere fi¬ 
les om wilt leiden. Dit is te stoppen 
met het BREAK commando, voor een 
achtergrond proces, of met CTRL C. 
n : NOTIFY. Geeft waardevolle pro¬ 
gramma informatie. CMD kan ook ge¬ 
bruikt worden vanuit de Workbench. 
Door (een van) de volgende parame¬ 
ters in het Tool Types’ veld van de 
‘.info’ file te zetten. Dit kunt u doen 
door het CMD icon 1 keer aan te klik¬ 
ken en vervolgens uit het menupunt 
‘Workbench’, ‘info’te selecteren. Hie¬ 
rin ziet u het ‘Tool Types’ veld. De vol¬ 
gende parameters worden herkent 
door CMD: 

DEVICE: serial of parallel. 

FILE: de filenaam. 

SKIP: gelijk aan de s optie. Deze op 
TRUE zetten voor uitvoeren s optie en 
FALSE voor het niet uitvoeren. 
MULTIPLE: gelijk aan de m optie. Ook 
weer TRUE en FALSE. 

NOTIFY: gelijk aan de n optie. Ook 
weer TRUE en FALSE. 

Endskip 

Dit commando behoort thuis in het rij¬ 
tje SKIP/LAB. Een met het SKIP com¬ 
mando uitgevoerde sprong, naar een 
door LAB vastgesteld label, kan door 
het ENDSKIP commando onderbro¬ 
ken worden. Bijvoorbeeld, SKIP la- 

bell .... ENDSKIP.... LAB labell. 

Bij uitvoering van de sprong van SKIP 
naar labell zal opvallen dat de sprong 
bij ENDSKIP afgebroken wordt. Door¬ 
dat hierbij ook de WARN flag gezet 
wordt kan een opvolgende sprong met 
een IF/SKIP/ENDIF constructie ge¬ 
realiseerd worden. Een andere moge¬ 
lijkheid is op de conditie te testen met 
IF WARN en bijvoorbeeld met behulp 
van een ECHO commando een tekst 
af te laten printen. De syntax van 
ENDSKIPis: ENDSKIP 

Eval 

EVAL is de afkorting voor het Engelse 
woord Evaluate. Kortweg gezegd, be¬ 
rekenen. Met het commando EVAL is 
het mogelijk hele simpele integer be¬ 
rekeningen te doen. De syntax luidt: 
EVAL parameterl operatie parame¬ 
ten [TO] [LFORMAT] 

De parameters mogen alleen integer 
getallen zijn. De parameters mogen 
decimale, hexadecimale alswel octale 
getallen zijn. Hexadecimale getallen 
worden voorafgegaan door ‘0X’ of ‘#X’ 
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en octale getallen worden voorafge¬ 
gaan door een ‘0’ of EVAL onder¬ 
steund verschillende rekenkundige 
operaties. Dit zijn + : optellen, - : af¬ 
trekken, *: vermenigvuldigen, /: delen 
mod : rest, & : AND, | : OR, < : naar 
links schuiven, > : naar rechts schui¬ 
ven, _ : ontkenning, ~ : NOT 
Ook de uitvoer van het EVAL com¬ 
mando kan worden geregeld. Door 
middel van de optie LFORMAT kan 
een string opgegeven worden waarin 
bepaalde kenmerken van de uitvoer 
vermeldt worden. Deze kenmerken 
zijn: 

%Xn: hexadecimale uitvoer 
%On: octale uitvoer 
%N : decimale uitvoer 
%C : character uitvoer 
*N : er wordt een RETURN gegeven. 
De bij de %X en %0 vermelde ‘n’ geeft 
het aantal hexadecimale, cq. de octa¬ 
le getallen aan die uitgevoerd moeten 
worden. Bijvoorbeeld, ‘%X8’ zorgt er¬ 


voor dat de uitvoer in 8 hexadecimale 
getallen gebeurt. Met het TO keyword 
kan de uitvoer naar een file geleid 
worden. Een voorbeeld van EVAL, 

EVAL 12/4 lformat="Het antwoord 
is %X4." Uitvoer: Het antwoord is 3. 

FASTMEMFIRST 

Door in te typen FASTMEMFIRST 
wordt het geheugen zo ingedeeld dat 
eerst het autoconfigurerende FAST 
RAM, dus alle uitbreidingsgeheugen, 
gebruikt wordt om programma's in te 
laden. Dit bespaart kostbare ruimte in 
het al te kleine CFIIP RAM. De syntax 
luidt; RUN FASTMEMFIRST 

FF 

Als laatste van deze aflevering is er 
dan nog FF. FF staat voor FastFonts 
en is een door Charley Fleath ge¬ 
schreven utility waarmee de tekstuit- 


voer plusminus 4 keer versneld wordt. 
Eveneens is het hiermee mogelijk al¬ 
ternatieve karaktersets op het DOS 
scherm te krijgen. De syntax, FF [op¬ 
ties] Deze opties zijn: 0 : Zet FF aan n 
: Zet FF uit q : Quit FF We weten dat 
er nog meer opties bij FF zijn. In een 
van de volgende afleveringen kunnen 
we u meer vertellen over deze opties 
en hoe u andere fonts op het scherm 
kunt toveren. Let daarom goed op de 
tips & trucks afleveringen!! 

Tenslotte 

Dit was dan weer de eerste aflevering 
van de Workbench vl .3 cursus. In de 
volgende aflevering gaan het hebben 
over nog meer nieuwe commando’s, 
verbeterde commando’s, etcetera. 
We hopen dat u nu weer een beetje 
licht ziet door uw nieuwe DOS oer¬ 
woud. 

Tot de volgende keer! 
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Een Amiga met slechts één diskdrive is niet meer dan een halfwas-machine. Voor spel¬ 
letjes en beperkt zakelijk gebruik valt er mee te leven en het blijft natuurlijk goedkoop. 
Wel kost het wachten en diskjockey spelen veel systeemtijd. Voor de power user en 
zakelijk gebruiker is één enkele diskdrive gewoon te weinig. Tal van businessprogram- 
ma’s vereisen al twee diskkettestations en liefst ook een harde schijf. Gelukkig zijn ex¬ 
tra drives voor de Amiga momenteel tegen redelijke prijzen te koop. Een investering 
die zich dubbel en dwars terugbetaald. 

AMIGA-drives 


Meer efficiëncy en kracht met een extra diskdrive of harddisk 

D e Amiga 500 en 2000 zijn bijzonder krachtige machines. Geen afgeleide 
huiscomputers zoals menige jaloerse concurrent wil doen geloven, 
maar volwaardige Personal Computers. Net als bij de IBM compatibele PC 
zijn computers met slechts één drive eigenlijk verouderd. Een arme student 
of beginnend hobbyist neemt er wellicht nog genoegen mee. De gevorder¬ 
de en zakelijke gebruiker ziet echter al gauw in dat veel van de Amiga- mo¬ 
gelijkheden en -kracht door die ene drive gekneveld blijven. Pas bij de inzet¬ 
ten van een extra diskettestation of nog beter een harde schijf ontdoet de 
68.000-reus zich van zijn banden. 

Commodore voert een budgetprijs po¬ 
litiek waarbij de hobbyist de Amiga 
standaard met slechts één diskdrive 
geleverd krijgt. Bij de Amiga 500 is er 
door de kompakte bouw van de toet- 
senbordkast slechts plaats voor die 
ene ingebouwde 3.5 inch diskdrive. 

Een optionele drive zal dus altijd naast 
de computer komen te staan. In de 
Amiga 2000-systeemkast is daarente¬ 
gen plaats voor meerdere diskdrives 
en harddisks. Ook is uitbreiding naast 
de systeemkast mogelijk. N.B.: Maxi¬ 
maal kan de Amiga 2000 acht hard¬ 
disks aansturen. 

De zakelijke gebruiker die een Amiga 
2000 koopt zal daar meestal direkt 
een harde schijf of minimaal één extra 
diskdrive laten inzetten. Hobbyisten 
die met de Amiga 500 werken sparen 
dikwijls na de aankoop door voor een 
extra diskdrive. Gezien het grote be¬ 
lang van de harddisk voor de gevor¬ 
derde Amiga-gebruiker gaan wij ook 
wat nader in op de technische aspec¬ 
ten van de harde schijf. 

De eerste optionele verkrijgbare Ami- 
ga-diskdrive was de Commodore Mo¬ 
del 1010 3.5 inch uitwendige diskdri¬ 
ve. Een lomp, duur en wat lawaaierig 
kastje dat in de praktijk een betrouw¬ 
bare drive blijkt te zijn. In de loop der 
jaren is de prijs van de 1010 gedaald, 
maar er zijn inmiddels vele concurren¬ 
ten op de Amiga- drivebehoefte gedo¬ 
ken. Er is keuze uit 3.5 en 5.25 inch 





formats, interne en externe drives, 
verschillende behuizingen tot tandem- 
modellen toe en diverse prijsklassen. 
Hetzelfde geldt in feite voor de harde 
schijven. Daar is het aanbod in typen, 
opslagcapaciteit, in/extern, behuizin¬ 
gen, prijsklassen en interfaces aan¬ 
zienlijk groter dan bij de Commodore 
hardcards. 

Waarom een extra drive? 

Een extra schijfstation brengt niet al¬ 
leen voordelen qua bedrijfsvoering, 
maar is in een groot aantal gevallen 
ook een must om goed met een be¬ 
paald programma te kunnen werken. 
Praktisch gezien bestaat een Amiga 
softwarepakket minimaal uit één pro- 


Een Amiga 500 met 
een 20 MB Hard Disk 


grammadiskette en dikwijls ook nog 
wat library- en/of utility-diskettes. 
Sommige programmatuur is zelfs zo 
groot dat er twee of meer systeemdis- 
kettes nodig zijn. 

Bij de meeste videogames is één dis¬ 
drive doorgaans niet zo’n probleem. 
De diskette gaat gewoon in DF0 en 
het spelen kan beginnen. Bij de wat 
grotere games gaat de laadtijd een rol 
spelen. Met name bij crashes en 
GAME OVER-situaties kan het voor 
de ongeduldige speler frustrerend zijn 
om op de inlaadprocedure te wachten. 
Een harde schijf klaart dit klusje aan¬ 
merkelijk sneller. 

Tijdrovender wordt het als het video¬ 
game van aparte scenery-disks of 
spel-save-schijven gebruik maakt. 
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Dat betekent steeds programmaschijf 
er in, dan er weer uit en de scenery- of 
save- diskette er in en vervolgens de 
programmadiskette weer terugplaat¬ 
sen enz. Afhankelijk van het aantal 
benodigde handelingen meer of min¬ 
der lastig en langdurig diskjockey spe¬ 
len. 

Bij zakelijke programmatuur neemt 
dit gediskjockey al snel storende vor¬ 
men aan. Tal van tekstverwerkers, 
spreadsheets, boekhoud-, database- 
en grafische programma’s gaan er 
van uit dat u de systeemschijf (of een 
kopie daarvan) in drive DFO en de dis¬ 
kette voor het opslaan van de bestan¬ 
den in DF1 hebt zitten. In het gunstig¬ 
ste geval kunt u nog een soort werk- 
diskette, waarop zowel het uitvoe¬ 
rend deel van het programma als de 
daarbij behorende bestanden staan, 
aanmaken. In het ongunstigste geval 
transformeert de onfortuinlijke gebrui¬ 
ker tot een ware diskette-goochelaar. 
Een apart probleem vormt software 
die met een Master- of Key-disk 
werkt. Daar zitten echte tergers onder 
die voor de opstart van elk program- 
ma-module weer vereisen dat de ori¬ 
ginele systeemschijf even in DFO 
gaat. Bij een twee-drivesysteem kunt 
u de Master- of Key-diskette comforta¬ 
bel in DFO parkeren en verder op DF1 
werken. Een beter alternatief is de 
hele handel met behulp van kopieer- 
software op de harde schijf over te ne¬ 
men. Dan bent u direkt van het gezeur 
af. 

Op werkdiskettes is slechts een be¬ 
perkte ruimte voor het opslaan van 
files vrij. Dat betekent elke keer met 
argusogen de bestandsgrootte in de 
gaten houden anders is de kans groot 
dat er data verloren gaan. Op een lege 
3.5 inch diskette in een tweede disk¬ 
drive staan de volle 720 KB ter be¬ 
schikking. Bij een harde schijf staan 
de programma’s een bijbehorende be¬ 
standen op één en hetzelfde medium 
met een (naar budget) bereikbare op¬ 
slagcapaciteit van 20 tot 80 MegaBy- 
te of meer. Een disk fuli- fout treedt 
daarom niet gauw op. Bovendien 
voert de harde schijf de lees/schrijf- 
operaties veel sneller uit dan een 
diskettestation waardoor het Amiga- 
systeem ook in zijn geheel sneller 
wordt. 

Een geheel andere reden om een los¬ 
se diskdrive te nemen is het willen ge¬ 
bruiken van een afwijkend diskette- 
formaat. In de praktijk gaat het dan 
vrijwel altijd om een 360 KB 5.25 inch 
diskdrive model. De 5.25 floppen zijn 
goedkoper dan de 3.5 inch schijfjes en 
er staat nog altijd veel MS-DOS soft¬ 
ware op 5.25 inch. Een Amiga 2000 
met XT- of AT-kaart wordt daarom 


standaard uitgebreid met een 5.25 
inch drive naast de al bestaande 3.5 
inch diskdrive. 


Diskdrives 

De aankoop van een extra diskdrive 
dient op het type Amiga afgestemd te 
worden. In de eerste plaats krijgt u te 
maken met de keuze tussen interne- 
en externe drives. De Amiga 2000 is 
zoals gezegd de enige van de familie 
die interne drives accepteert. Een in¬ 
terne diskdrive heeft geen eigen voe¬ 
ding en interface nodig want die zitten 
al in de gastheercomputer. Gewoon 
het diskettestation in hetdrive-chassis 
van de Amiga 2000 bevestigen, de 
voeding en de connector aansluiten 
en de drive is klaar voor gebruik. 

Bij de Amiga 500 en 1000 komt alleen 
een externe drive in aanmerking. 
Deze externe drive dient over een ei¬ 
gen voeding, een geschikt interface 
en de juiste aansluitkabel te beschik¬ 
ken. Anders krijgt u het station niet 
aan de praat. De Commodore 1010 
werd eigenlijk voor de Amiga 1000 
ontwikkeld. Dat valt nog aan de lange 
aansluitkabel voor de achterzijde van 
deze machine te zien. Bij de Amiga 
500, waar de driveconnector aan de 
zijkant zit, levert de kabel kronkel- en 
ruimteproblemen op en toont de 1010- 
behuizing wat grof in vergelijking met 
de slanke 500-kast. Voor de rest func¬ 
tioneert deze Commodore drive pri¬ 
ma. 

Andere leveranciers maken hun ex¬ 
terne drives doorgaans wat slanker. 
Er zijn er zelfs bij die een hele moder¬ 


ne styling hanteren. Een lust voor het 
bureau. De gemiddelde prijs voor een 
externe 3.5 inch diskdrive ligt voor alle 
Amiga’s tussen de ƒ 350,- en ƒ 400,-. 


Daar krijgt u veel gemak en snelheid 
mee in huis. Een externe 5.25 inch 
drive pakt doorgaans wat duurder uit. 
Reken op een prijskaartje van ƒ 400,- 
tot ƒ 550,-. N.B.: Bij een XT- of AT- 
kaart voor de Amiga wordt een 5.25 
inch drive meegeleverd. Bekende 
merken zijn o.a. Alcomp, NEC, Amigo, 
Golem, Overdrive en Profex. Deze dri¬ 
ves kunt u ondermeer kopen bij Cat & 
Corsh, Bits & Chips, Funtronics en di¬ 
verse (Duitse) postorderbedrijven. 
Het aanbod van interne Amiga 2000 
drives is aanmerkelijk kleiner, maar 
met wat handigheid kunnen daar ook 
IBM PC compatibele drives voor ge¬ 
bruikt worden. 

Gevorderde gebruikers willen soms 
meerdere externe diskdrives op de 
Amiga aansluiten. Bijvoorbeeld twee 
3.5 inch drives of een 3.5 inch en een 
5.25 inch model. Zoals bekend kun¬ 
nen de drives via daisy-chaining on¬ 
derling doorverbonden worden. N.B.: 
Let op, want bij sommige goedkopere 
drives kan de busaansluiting voor 
doorverbinden ontbreken! Er zijn ook 
elegantere oplossingen in de vorm 
van twee doorverbonden drives (naar 
keuze twee 3.5 inch stations of een 
combinatie van 3.5 en 5.25 inch) in 
één slanke tandem-behuizing. Een 
soort tussen oplossing is de rackvorm 
waarbij de drives net als een Midi-Au- 
dioset bovenop elkaar gestapeld wor¬ 
den. 

Samenvattend dient u bij de aanschaf 



Een Amiga 1000 mei een Sidecar (externe XT-Emulator) 


90 


Commodore Info 1/89 










Amiga 


van een extra diskdrive op de volgen¬ 
de zaken te letten: 

• Is er een interne of een externe 

drive nodig? 

• Is het mogelijk om meerdere dri¬ 
ves door te verbinden? 

• Wat is het gewenste driveformat. 
3.5 Of 5.25 inch? 

• Past deze drive op uw Amiga? 

• Hoe snel, toegangstijd in millise¬ 
conde, is de drive? 

• Kan de drive selectief uitgescha¬ 
keld worden? Dit is van belang 
voor enkele programma’s die niet 
met twee drives willen werken en 
bij een te krap vrij RAM-geheu- 
gen. 

• Elke extra diskdrive kaapt 21 KB 
van het RAM-geheugen! 

• Is de 5.25 drive omschakelbaar 
tussen 40 en 80 sporen? 

• De kwaliteit van de behuizing 

met het oog op lawaai en afscher¬ 
ming. Let tevens op de afmetingen 
en kabelruimte. 

Een extra diskdrive is een investering 
die voor bijna elke Amigabezitter/ster 
loont. Voor minder dan 500 gulden ne¬ 
men de efficinëtie en gebruiksmoge- 
lijk heden van de Amiga in veelvoud 
toe. 

Harde schijven 

Na een extra diskdrive en een RAM- 
uitbreiding staat bij de serieuze Ami- 
ga-gebruiker de harddisk hoog op het 
verlanglijstje genoteerd. Een opslag¬ 
capaciteit van vele MegaBytes (MBs), 
programma’s en bijbehorende files op 
één en hetzelfde medium en supers¬ 
nelle lees/schrijftijden maken de Ami¬ 
ga harde schijf tot een gewild hardwa- 
re-object. Tot voor een jaar betaalde 
de Amigabezitter zich arm aan een 
simpele 20 MB harddisk. Er werden 
prijzen van meer dan ƒ 2.000,- ge¬ 
vraagd. Alleen de eigenaar van de 
Amiga 2000 had mazzel. Daar kunnen 
ook de meer dan de helft goedkopere 
IBM PC compatibele harde schijven in 
de systeemkast. Natuurlijk had deze 
eigenaar dan wel eerst in de Amiga 
2000 zelf plus XT/AT-uitbreidingskaart 
geïnvesteerd. Gelukkig zakken de 
prijzen van de externe harddisks voor 
de Amiga 500 en 1000 de laatste tijd 
flink. Een 20 MB model varieert afhan¬ 
kelijk van het merk en de leverancier 
tussen de ƒ 1.000 en ƒ 1.500 terwijl 
beneden de ƒ 2.000 (Duitsland en 
schaars in Nederland) ook al 30 tot 60 


MB modellen te koop zijn. 

Om van een harde schijf gebruik te 
kunnen maken is het nodig dat de Mo¬ 
torola 68000 micrprocessor het lezen 
en wegschrijven van de harddisk-data 
kan besturen. Daarvoor wordt dikwijls 
een aparte controller-interfacekaart 
gebruikt. Dergelijke Controllers zijn 
gemaakt volgens een bepaalde stan¬ 
daard. Bijvoorbeeld de Smal Compu¬ 
ters system Interface (SCSI) of de 
Schugart Associates System Interfa¬ 
ce (SASI)-standaard. De Amiga’s 500 
en 1000 beschikken standaard niet 
zelf over een hard disk-interface. De 
Amiga 2000 in een zakelijke en/of IBM 
XT/AT-configuratie wel. Dat betekent 
in de praktijk dat de harde schijf vor de 
500 en 1000 over een eigen control¬ 
ler- interface dient te beschikken. 
Doorgaans leveren de hardwarefabri- 
kanten daarom een losse drive unit 
met een eigen voeding en interface 
aan boord. Een speciale kabel ver¬ 
zorgt dan de aansluiting op een van 
de uitbreidingspoorten. Bij de Amiga 
2000 en Sidecar is dat allemaal niet 
nodig want daar kan een controller in 
een uitbreidingsslot geplaatst worden. 
De minpuntjes van de harde schijf zijn 
de wat grotere gevoeligheid voor be¬ 
schadigingen dan conventionele flop¬ 
py drives en het installatieprobleem bij 
tegen kopiëren beschermde software. 
Die kwetsbaarheid valt overigens bij 
de Amiga-drives wel mee. De kwaliteit 
is in het algemeen goed. En bij hard¬ 
nekkige beschermers kunt u eens een 
kraak/kopieerprogramma als Maurau- 
der II of Mirror proberen. 

Typen harddisks 

De harde schijf was een van de eerste 
magnetische opslagmedia. Na de ta- 
pemedia (computerbanden) kwam 
eerst de harddisk of Winchester en 
daarna pas de floppy-diskdrive. Aan¬ 
vankelijk kostten de harddisks vele 
tienduizenden guldens. De sterk 
groeiende populariteit vande IBM PC- 
kloon deed de prijzen van harde schij¬ 
ven en bijbehorende controllers ech¬ 
ter snel kelderen en de harddisks wer¬ 
den "allemans-drives". Zowel voor de 
kleine zakelijke gebruiker als serieuze 
hobbyist. 

Een tweede belangrijke gebruiksbe- 
vorderende factor is de omvang van 
software. Programma’s voor CAD, 
desktoppublishing, grafisch werk, da¬ 
tabases en spreadsheets worden 
steeds groter en passen niet meer op 
slechts één floppy. Zelfs een 720 KB 
3.5 diskette blijkt maar al te vaak te 
klein voor de echt professionele Ami- 
ga-programmatuur. Een harddisk kan 
wel 10 of meer van dergelijke grootte 


pakketten aan en dat bespaart de ge¬ 
bruikers veel tijdsverlies en ergenis. 
Tegenwoordig is er keuze uit de vol¬ 
gende harddisktypen die, mits u over 
het juiste interface beschikt, op de 
Amiga kunnen worden aangesloten: 

* De conventionele harddisk (Win¬ 
chester) met de schijven, motor en 
electronica in één vaste behuizing. De 
controller zit op een aparte kaart. Bij 
de duurdere externe Amiga harddisks 
is sprake van een eigen systeemkast- 
je voor de harde schijf, interface en bij¬ 
behorende voeding. 

* Er zijn ook draagbare conventione¬ 
le harddisks met een eigen voeding 
en schokvrije behuizing. Deze harde 
schijven zijn geschikt voor het uitwis¬ 
selen van harddisk-bestanden tussen 
verschillende PC’s. 

* De hardcard waarbij de harde schijf- 
eenheid en controller op dezelfde in¬ 
steekkaart zitten. Commodore levert 
een dergelijke kaarten voor de Amiga 
2000 . 

* Uitwisselbare harde schijven. In 

tegenstelling tot de beide vorige typen 
kunnen de schijven (met aandrijfas) in 
de vorm van een cassette van het vas¬ 
te motordeel genomen worden. Een 
bekend voorbeeld is de Bernoulli Box. 

* Optisch lees/schrijfbare harde 
schijven. De zogenaamde WORMS. 
Niet te verwarren met de spelletjes 
CD-spelers voor de Amiga. 

De opbouw van een 
harddisk 

Een harde schijf bestaat in wezen uit 
vier hoofdcomponenten: 

* De schijf zelf. Meestal bevat een 
harddisk-eenheid meerdere schij¬ 
ven. 

* De lees/schrijfkoppen met be¬ 
weegbare arm. 

* Een aandrijfmotor met ventilatie¬ 
systeem. 

* De besturende en interface-elec- 
tronica. 

In elke harde schijf-unit zult u deze 
vier componenten aantreffen. De uit¬ 
voering en kwaliteit kunnen echter per 
merk en type sterk verchillen. 

De schijven zelf 

Een harddisk is opgebouwd uit mag¬ 
netische schijven, de disks. Die 
disks zijn ronde metalen (van daar de 
naam hard) schijven met een laagje 
magnetiseerbaar oxyde. Een populai¬ 
re vergelijking is die met een kruising 
tussen een grammofoonplaat en een 
magneetband. Net als bij de plaat 
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worden "groeven", cylinders met 
sectoren, op de schijf aangebracht. 
Het gaat hierbij om onzichtbare mag¬ 
netische sporen of tracks. De koppen 
schrijven/lezen net als bij een band- of 
cassetterecorder informatie naar en 
uit de sporen. Alle gegevens worden 
dus in de vorm van magnetische la- 
dinkjes op de schijf gezet. 

In plaats van de analoge registratie bij 
de grammofoonplaat en recordertape 
vindt de informatie-overdracht bij 
disks digitaal plaats. In electromag- 
netische termen betekent dat 
wel/geen lading op een bepaalde 
plaats. 

Harde schijven voor gewone PC’s zo¬ 
als de Amiga-modellen zijn meestal 
opgebouwd uit schijven van 10 MB. In 
een 20 MB harddisk zitten dan twee 
stalen schijven op één centrale as ge¬ 
monteerd. Hoe groter de opslagcapa¬ 
citeit van de harddisk-unit is des te 
meer schijven er in zitten. 

De get uikelijke doorsneden van de 
schijve voor de Amiga zijn 5.25 inch 
en 3.5 inch. 5.25 Inch is een al wat ou¬ 
dere standaard die nog altijd in meni¬ 
ge harddisk wordt toegepast. Deze 
drives zijn relatief goedkoop te fabri¬ 
ceren, maar gebruiken iets meer 
stroom dan harddisks die met de klei¬ 
nere 3.5 inch schijven werken. Het 3.5 
inch formaat sluit goed aan bij de ten¬ 
dens naar steeds kleinere Personal 
Computers. Het lezen/schrijven van 
de kleinere 3.5 inch schijven stelt ho¬ 
gere eisen aan de nauwkeurigheid 
van de hardware en maakt de hard¬ 
disks daardoor wat duurder. 

De lees/schrijf-koppen 

Aan elke schijfzijde zit een arm (ac¬ 
tuator) met een kleine registratiekop 
(head). Die arm wordt uiterst nauw¬ 
keurig bestuurd door een electromag- 
netisch voice coil mechanisme of een 
lineaire stappenmotor. De registratie- 
koppen zijn aanzienlijk kleiner dan bij 
een gewone floppydrive en dat maakt 
een hogere informatiedichtheid (meer 
tracks per inch) mogelijk. 

In het head bevindt zich een zeer nau¬ 
we spleet die op een minieme afstand 
van het schijfoppervlak voortzoeft. Bij 
het registreren van gegevens zorgt 
de toegevoerde spanning er voor dat 
de oxydedeeltjes op de schijf magne¬ 
tisch gericht worden in de richting van 
het signaal. De informatie blijft staan 
totdat een nieuwe spanning hen wist. 
Bij het uitlezen wordt er geen span¬ 
ning toegevoerd, maar veroorzaken 
de gemagnetiseerde oxydepartikel- 
tjes een inductiestroom in de mag- 
neetkop. De electronica ontvangt een 
digitaal datasignaal terug en interfacet 



dit signaal naar de CPU. 
Tegenwoordig gebruiken de harddisk- 
fabrikanten dikwijls lichte snel ver¬ 
plaatsbare Whitney koppen in kom- 
binatie met een dunne harde metaal- 
oxydelaag. Deze methode verhoogt 
de opslagcapaciteit, versnelt de data¬ 
overdracht en maakt de schijf resis- 
tenter tegen crashes. 

Een belangrijk koppenaspect is het 
zogenaamde parkeren. Koppen zwe¬ 
ven zoals gezegd dicht boven de har¬ 
de schijven en een schok of stoot kan 
een fatale beschadiging teweeg bren¬ 
gen. Het parkeerproces voorkomt 
deze schade door de arm boven een 
dataloos gebied te manouvreren en 
de arm met koppen vervolgens me¬ 
chanisch te vergrendelen. Bij oude en 
goedkope harddisks gaat dat parke¬ 
ren soms niet automatisch. De gebrui¬ 
ker moet dan aan het einde van een 
gebruiksssessie een PARK(eer)-op- 
dracht geven. Automatisch parkeren¬ 
de harddisks nemen deze taak com¬ 
fortabel en zeker van u over. Denk er 
altijd aan dat een niet geparkeerde 
harddisk ook nooit vervoerd mag 
worden!. Anders is de kans op fatale 
beschadiging van hardware en de 
daarop opgeslagen data groot. 
Tijdens het draaien hebben harde 
schijven een bepaalde mate van 
schokbestendigheid. Meestal iets van 
5 tot 10G in bedrijf en 10 tot 20G in de 
rustmodus. In de meeste gevallen zal 
een stoot tegen of een botsing van de 
kantoorstoel tegen het bureau geen 
ernstige gevolgen hebben. Een val 
kan daarentegen wel katastrofaal blij¬ 
ken. Het is daarom verstandig verti¬ 
kaal staande PC’s van voetjes teggen 
het omvallen/omrijden te voorzien. 

De motor 

De functie van de motor is het laten 





Een Amiga 2000 met 
een extra 3,5" interne 
drive 


roteren van de schijf om een snelle en 
zo groot mogelijke data-overdracht te 
realiseren. Hoe harder de zaak draait 
des te meer informatie de unit per 
tijdseenheid kan lezen/schrijven. Bij 
de doorsnee PC-harddisk maakt de 
motor tussen de 3.500 en 4.000 toe¬ 
ren per minuut. Grote harde schijven 
voor filesavers, mini’s en mainframes 
kunnen nog veel hogere snelheden 
bereiken. U kunt zich voorstellen dat 
bij dergelijke hoge toerentallen een 
botsing tussen kop en schijf of tussen- 
lopend stof de hele harddisk naar zijn 
grootje kan helpen. 

De aandrijving van de centrale schij- 
fas (spindle) kan indirekt (pulley en 
snaar-systeem) of bij voorkeur direkt 
(direct drive- systeem). Aan de be¬ 
trouwbaarheid van de motor, de kon- 
stantheid van de rotatiesnelheid en de 
vervormingstoleranties worden ex¬ 
treem hoge eisen gesteld. Onregel¬ 
matig lopende motoren, het zwiebelen 
van de schijfas en het uitlopen van de 
kogellagers kunnen een regelrechte 
dataramp betekenen. Puur mechani¬ 
sche problemen zijn frequente sto- 
ringsbronnen bij de harde schijf. 

De door de schijfrotaties veroorzaakte 
luchtwervelingen worden tevens voor 
de ventilatie (anders lopen de hard¬ 
disks loei heet), het op een zeer dun 
luchtlaagje laten rijden van de heads 
en reiniging gebruikt. Stof wordt van 
het schijfoppervlak geblazen of gezo¬ 
gen en de hitte uit het mechanisme 
weggevoerd. Een speciaal luchtfilter 
voorkomt dat de luchtstroom juist stof 
naar binnen brengt. Open daarom 
nimmer een harddisk voor reparatie 
als u niet over een stofvrije ruimte be¬ 
schikt. 

De electronica 

De on board electronica van de 
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harddisk vervult de volgende belang¬ 
rijke functies: 

* Het besturen en positioneren van 

de koppen door het bewegen van de 
koppenarmen. 

* Het regelen van de electromagneti- 
sche lees/schrijf-operaties en de 

signaalversterking. 

* De bewaking van het motortoeren- 
tal. 

* De interne foutcontrole, men 

spreekt van Error Checking en Co- 
reection, ECC. 

* De interface-procedures met de 

controller in de PC. 

Het behoeft verder geen betoog dat 
betrouwbare electronica een must is 
voor uw harddisk. De Workbench van 
uw Amiga dient optimaal met deze 
electronica samen te werken om een 
betrouwbare en zo snel mogelijke 
data-overdracht te bewerkstelligen. 

Verkrijgbare Amiga 
harddisks 

In nederland is het aanbod van harde 
schijven voor de Amiga wat mager. 
Pioniers zoals Cat & Corsh Internatio¬ 
nal (tel.: 010- 4507696), enkele spe¬ 
ciaalzaken en sommige postorderbe- i 


drijven bieden de keuze uit enkele ex¬ 
terne 20 en 30 MB SCSI-modellen bij¬ 
voorbeeld van het merk Supra. De 
goedkoopste 20 MegaByte modellen 
kosten iets van ƒ 1400,-. Bij de Duitse 
"Festplatten" liggen de prijzen bij de 
budgetmodellen iets lager. Wij signa¬ 
leerden daar zelfs een 20 MB Skyline 
(S-Trading, 80757 Eching) voor de 
Amiga 500 en 1000 voor rond de 
ƒ 950,-. Andere bekende merken zijn 
o.a. Alcomp, Combitec, Golem en na¬ 
tuurlijk Commodore zelf. Let bij aan¬ 
koop op de specificaties voor acces- 
tijd in ms, opslagcapaciteit in MB en 
het gebruikte of benodigde interface 
(Amiga-model). 

Problemen 

Het gebruik van een harde schijf op de 
Amiga vraagt even stilstaan bij de vol¬ 
gende zaken: 

• Zorg voor het juiste interface, ka¬ 
beltjes, voeding e.d. 

• Een harddisk is kwetsbaar voor 
schokken. 

• Op een harde schijf staat een berg 
aan kostbare informatie. Maak 


daarom regelmatig een backup. 

• Een harde schijf dient voor het ge¬ 
bruik geformatteerd en geïnstal¬ 
leerd te worden. Bent u niet kun¬ 
dig laat dit dan de leverancier 
doen! 

• Bij copy-protected software 

moeten de programma’s met be¬ 
hulp van een kopieerprogramma 
op de harddisk worden overgeno¬ 
men. 

• Zorg, gezien de grote data-opslag- 
capaciteit, voor een overzichtelij¬ 
ke indeling in directories. Anders 
ziet u straks letterlijk door de bo¬ 
men het bos niet meer! 

Met deze puntjes goed in het achter¬ 
hoofd zult u zich niet gauw een buil 
vallen. 

Een harddisk vraagt een investering 
van 1.000 piek of meer en dat zal niet 
voor elke hobbybeurs lonend blijken. 
De zakelijke en serieuze amateur zul¬ 
len echter na aankoop nooit meer 
zonder willen. 

U.S 



GEOS 2.0 UPGRADE 


VOOR DE ECHTE FANS! 


De compleet vernieuwde en uitgebreide GEOS 2.0 is nu ook verkrijgbaar als up 
grade-programma. 



Alleen voor bestaande GEOS gebruikers. 


GEOS 2.0 bestaat uit de volgende vernieuwde toepassingen: 

GeoWrite 2.1 Disk Accessories 

Desktop GeoPaint 

Diskturbo GeoSpell 

Text Grabber GeoMerge 


Voor de prijs van ƒ 89,00 plus ƒ 10,00 verzendkosten kunt u dit pakket verkrijgen onder omruiling van uw 
oude originele GEOS schijf (alle versies). 

Stuur een betaalcheque voor ƒ 99,00 met uw originele GEOS schijf naar de importeur: 

Frotech Nederland BV, Postbus 189,3620 AD Breukelen. 

De nieuwe GEOS 2.0 wordt u dan onmiddelijk toegestuurd. Uw oude schijf wordt ingenomen en niet gere¬ 
tourneerd. U kunt met de nieuwe GEOS 2.0 versie gegarandeerd al uw oude applicaties zonder meer ge¬ 
bruiken. Voor Commodore 64 en 128 computers (64 mode). 

Veel plezier en succes met 2.0 
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RastPort, ViewPort, View, BitPlane. Wie heeft er niet van gehoord? Het zijn allen be¬ 
grippen uit de grafische vocabulaire van de Amiga. Het leeuwendeel van de Amiga be¬ 
zitters weet echter niet wat de begrippen inhouden, laat staan dat men weet hoe er 
mee om te gaan. In dit artikel proberen we dieper op dit soort begrippen in te gaan. 


AMIGA GRAFISCH 

D e Amiga kent vele grafische mogelijkheden. Dit zorgt voor een bijko¬ 
mend negatief effect. Immers ook bij de Amiga blijft de regel, hoe meer 
hoe complexer, van kracht. Als u een Window of een Scherm wilt openen 
zult u vele dingen moeten definiëren eer het gewenste zichtbaar is. Gauw zal 
een beginnende programmeur verdwalen in het doolhof van structuren, 
modi en begrippen. Een overzicht van het gehele systeem is dan al snel ge¬ 
wenst. We zullen proberen in de Amiga-chaos een beetje orde te scheppen. 


Intuition 

Intuition. Het grafische besturings 
systeem van de Amiga. Het is in feite 
een grote verzameling van program¬ 
ma’s die Windowsroutines, Scherm - 
routines, Tekstroutines en nog veel 
meer omvatten. In feite is het dus een 
grote bibliotheek. Vandaar de al vaak 
gehoorde term ‘library’. Als u een ‘li- 
brary’ opent dan krijgt u de beschik¬ 
king over een groot aantal al van te 
voren geprogrammeerde routines. 
Deze routines kunnen allerlei zaken 
beinvloeden. Het openen van een der¬ 
gelijke library is afhankelijk van de 
programmeertaal waarin u werkt. Om 
nu in Intuition te kunnen werken zult u 
de Intuition-library moeten openen. In 
C zal een dergelijke aanroep luiden: 

lntuitionBase=(struct IntuitionBase *) 
OpenübraryC'intuition. library", 0); 

Onder de noemer ‘IntuitionBase’ krijgt 
u nu de beschikking over een groot 
aantal routines 

Windows 

We beginnen met het eenvoudigste 
en meest tastbare begrip in de Amiga 
lexicon. Windows. Vanuit BASIC sim¬ 
pel te programmeren. Ze zijn ook 
weer simpel op te roepen, al zullen de 
meesten dit niet weten. De functie 
WINDOW(7) levert een adres op naar 
het huidige window. In C zult u, op 
voorwaarde dat u de include file intui- 
tion/intuition.h gebruikt, een aanroep 
zoals: 

lntuitionBase->ActiveWindow 


moeten gebruiken. In beide gevallen 
krijgt u een geheugenadres naar het 


huidige venster. Vanaf dit adres staat 
de Window structuur in het geheugen. 
Deze Window structuur kunt u het ge¬ 
makkelijkste opvatten als een klad¬ 
blaadje dat het besturingssysteem, In¬ 
tuition in dit geval, heeft opgesteld om 
de kenmerken van het Window op te 
slaan. Om nu deze kenmerken uit te 
lezen moet u weten waar ze te vinden 


dres ze hebben en wat voor type dit 
kenmerk heeft. Deze typen kunnen 
zijn, byte, word en long. Een byte om¬ 
vat 8 bits, een word omvat 16 bits en 
een long omvat 32 bits. Om nu bijvoor¬ 
beeld de breedte van het huidige ven¬ 
ster af te printen geeft u op: 

PRINT PEEKW(WINDOW(7)+8) 


zijn. Dus welke offset vanaf het starta- 


/* window.c 

/* Dit programma laat zien hoe u een window kunt maken * 
/* 22 juli 1988 by MGCC for Commodore INFO * 

ƒ****************************************************************************/ 

#include "functions.h" 

#include "exec/types.h" 

#include "intuition/intuition.h" 

#include "graphics/gfxbase.h" 

struct Window ‘Window; 

struct IntuitionBase ‘IntuitionBase; 

struct GfxBase ‘GfxBase; 

main() 

{ 

int x,l; 

char *mouse=(char *)0xbfe001; 
struct NewWindow NW; 

if((lntuitionBase=(struct IntuitionBase *) 
Openübrary("intuition.library",29L))==NULL) 

printf("intuition.library. II est morte!\n"); 
exit(FALSE); 

lf((GfxBase=(struct GfxBase *) 
Openübrary("graphics.library",29L))==NULL) 

printf("graphics.librarietje waar ben je??\n"); 
exit(FALSE); 

} 

NW.LeftEdge=20L; 

NW.TopEdge=20L; 

NW.Width=500L; 

NW.Height=150L; 

NW.DetailPen=OL; 

NW.BIockPen=1L; 

NW.Title=(UBYTE *)"Een test window"; 
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Dus, de offset van de breedte van het 
Window is 8. Het type is een Word. Zo 
zijn er van een Window in totaal 46 
kenmerken op te noemen. Hieronder 
volgen de belangrijkste: 


Offset 

type 

betekenis 

0 

Long 

Pointer naar het 
volgende Window 

8 

Word 

Breedte 

10 

Word 

Hoogte 

12 

Word 

X-coordinaat van 
de muis 

14 

Word 

Y-coordinaat van 
de muis 

24 

Long 

Venster modi 

32 

Long 

Pointer naarde 
titelbalk 

46 

Long 

Pointer naar het 
scherm waar het 
Window in staat 

50 

Long 

Pointer naar de 
RastPort 

66 

Long 

Pointer naar vorig 
venster 

70 

Long 

Pointer naar 
volgend venster 

74 

Long 

Pointer naar 
sprite gegevens 
van het pijltje 

78 

Byte 

Hoogte pijltje 

79 

Byte 

Breedte pijltje 

82 

Long 

IDCMP modi 


Het is dus mogelijk de x-coordinaat 
van de muis uit te lezen uit de Wind¬ 
ow structuur. Vergeet niet dat de coör¬ 
dinaten lopen vanaf de linker boven¬ 
hoek van het venster en niet van het 
scherm. Met behulp van de offsets 66 
en 70 kunt u door de Window structu¬ 
ren bladeren als was u door een boek 
aan het bladeren. De beide offsets be¬ 
vatten weer een adres dat het starta- 
dres is voor een volgend Window 
structuur. Bijvoorbeeld, u bent in de 
BASIC editor bezig. Deze BASIC edi- 
tor heeft twee Windows. Beide Wind¬ 
ows zullen een pointer naar elkaar 


hebben. Door nu het onderstaande in 
to tikkon" 

PRINT PEEKL(WINDOW(7)+70) 
krijgt u de pointer naar het list venster 
te zien. Als er geen vorig of als er geen 
volgend Window meer is, zal een of 
beide pointers op 0 staan. Belangrijk 
is offset 24. Dit is een LONGWORD 
welk de venstermodi bijhoudt. Dit zijn 


de eigenschappen welke het venster 
heeft. Er wordt hierin bijgehouden of 
het venster BORDERLESS is, dus dat 
het venster geen rand heeft, of het 
simple of smart refresh is en meerde¬ 
re zaken. In totaal zijn er 15 bits die 
een functie hebben. Ook hiervan heb¬ 
ben we een overzicht van de belang¬ 
rijkste samengesteld. 


Bit 


Omschrijving 


6 1 als het ‘simple refresh’ is 

7 1 als het een ‘superbitmap’ is 

11 1 als het venster borderless is 

13 1 als het venster actief is 

15 1 als het venster actief is en 

wanneer het een actief 
menu heeft 

Schermen 

De oplettende lezer heeft waarschijn¬ 
lijk in de Window structuur al een poin¬ 
ter gezien naar de Screen structuur. 
Dit is het volgende punt van aandacht. 


«« Vervolg listing Window.C »» 
NW.FIags=NOCAREREFRESH|SMART_REFRESH|ACTIVATE|WINDOWSIZING|V\| 
INDOWDRAG; 

NW.IDCMPFIags=NULL; 

NW.Type=WBENCHSCREEN; 

NW.FirstGadget=NULL; 

NW.CheckMark=NULL; 

NW.Screen=NULL; 

NW.BitMap=NULL; 

NW.MinWidth=120L; NW.MinHeight=120L; 

NW.MaxWidth=640L; NW.MaxHeight=200L; 

if((Window=(struct Window *) 

OpenWindow(&NW))==NULL) 

{ 

printf("Window niet te openen\n"); 
exit(FALSE); 

} 

while((*mouse & 0x40)==0x40) 

{ 

for(x=18; x<120; x++) 

{ 

SetAPen(Window-RPort,3); 

Move(Window-RPort,x,x); 

Text(Window-RPort,"Druk linker muisknop",20); 
if(x>48) 

{ 

SetAPen(Window-RPort,0); 

Move(Window-RPort,x-31 ,x-31); 

Text(Window-RPort,"Druk linker muisknop",20); 

} 

for(l=0; l<50; I++); 

} 

for(x=90; x<120; x++) 

{ 

SetAPen(Window->RPort,0); 

Move(Window->RPort,x,x); 

Text(Window->RPort,"Druk linker muisknop",20); 
for(l=0; l<50; I++); 

} 

} 

CloseWindow(Window); 

CloseLibrary(GfxBase); 

CloseLibrary(lntuitionBase); 

} 
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Elk Window moet in een Scherm zijn. 
Er is geen andere mogelijkheid. Pro¬ 
beert u maar eens een scherm af te 
sluiten als u nog een Window open 
hebt te staan. Dit resulteert dus in een 
dikke ‘crash’. Vooral niet doen dus. De 
Screen structuur is weer een soortge¬ 
lijke structuur als wat we daarnet bij de 
Windows behandeld hebben. Ook 
voor de Screen-structuur hebben we 
een pointer nodig om haar uit te kun¬ 
nen lezen. BASIC heeft hier geen 
functie voor maar het is mogelijk het 
adres af te leiden uit de WINDÓW(7) 
functie. Immers, we hebben daarnet al 
gezien dat elk venster een pointer 
heeft naar het scherm waarin ze aan¬ 
wezig is. Dus PEEKL(WIND- 
OW(7)+46) levert ons het geheugena- 
dres op waar vanaf wij de Screen 
structuur moeten verwachten. De be¬ 
langrijkste kenmerken van deze struc¬ 
tuur zijn: 


Offset 

type 

Omschrijving 

0 

Long 

Pointer naar het 
volgende scherm 

4 

Long 

Pointer naar het 
eerste venster in 
dit scherm 

12 

Word 

Breedte van het 
scherm 

14 

Word 

Hoogte van het 
scherm 

16 

Word 

X-coordinaat muis 

18 

Word 

Y-coordinaat muis 

20 

Word 

Scherm-modi 

44 


hiervanaf staat de 
ViewPort structuur 

84 


hiervan af staat de 
RastPort structuur 

184 


hiervan af staat de 
BitMap structuur 

330 

Byte 

Kleur van de 
randen van het 
scherm 

331 

Byte 

Kleur van de cursor 
en tekst 


Ook hier wordt weer hetzelfde princi¬ 
pe gevolgd als bij de Windows. De 
eerste vermelding in de Screen struc¬ 
tuur is de pointer naar het volgende 
scherm. We hebben al gezien dat 
vanuit een Window de Screen struc¬ 
tuur op te sporen is. Andersom is dit 
beperkt ook mogelijk. Offset 4 levert 
ons een pointer naar het eerste Wind¬ 
ow in dit scherm. Vanuit die structuur 
zijn alle overige Windows op te spo¬ 
ren. Ook bij de Screen structuur ko¬ 
men we een mode register tegen. Off¬ 
set 20 houdt bij wat voor eigenschap¬ 
pen het scherm kent. Bij dit mode re¬ 
gister zijn 6 bits van belang. 


bit Omschrijving 


bit 0-bit3 100= Workbench scherm of 
111=Custom scherm 
bit 4 1 =Titel balk afbeelden 

5 1 =Scherm ‘beep’ laten horen 

6 1=Custom bitmap 

Belangrijk zijn de offsets 44, 84 en 
184. U heeft het waarschijnlijk al ge¬ 
zien. Binnen de Screen structuur zijn 
meerdere structuren aanwezig. De 
belangrijste, in de context van dit arti¬ 
kel, zijn: Offset 44: de ViewPort, Offset 
84: de RastPort en Offset 184: de Bit- 
Map. Hiermee geraken wij buiten de 
mogelijkheden van de intuition biblio¬ 
theek. 

De RastPort 

De RastPort structuur behoort niet 
meer tot de intuition bibliotheek. We 
komen een stap dichter bij de hardwa¬ 
re van de Amiga. Functies die op de 
RastPort betrekking hebben treft u 
aan in de graphics bibliotheek of het 
Engelse variant ‘graphics.library’. Het 
openen van deze bibliotheek gaat on¬ 
geveer op dezelfde wijze als met de 
intuition bibliotheek. We hebben weer 
een pointer nodig. Deze is volgens 
(onofficiële) afspraak GfxBase ge¬ 
noemd. Het openen van de biblio¬ 
theek gebeurt dan weer met de Open- 
LibraryO functie. In BASIC heeft men 
de file graphics.bmap nodig. De com- 
mandoreeks LIBRARY "graphics.li¬ 
brary" zal er dan voor zorgen dat de 


graphics bibliotheek geopend wordt. 
Wat doet de RastPort nu eigenlijk? Ze 
bepaalt hoe het scherm verder inge¬ 
deeld wordt. Bijvoorbeeld, wat voor 
font wordt er gebruikt, wat voor voor- 
en achtergrond kleur heeft het 
scherm, wat voor patroon wordt er ge¬ 
bruikt voor de lijnen etcetera. Hoe vin¬ 
den we nu het startadres van de Rast¬ 
Port structuur. Dit kan op twee moge¬ 
lijkheden. Een, door 84 bij de pointer 
naar het scherm op te tellen. Twee, 
door de waarde van de functie WIND¬ 
OWS) uit te lezen. 

De belangrijkste elementen van de 
RastPort zijn: 


Offset 

type 

Omschrijving 

4 

Long 

Pointer naar een 
BitMap 

25 

Byte 

Voorgrondkleur 

26 

Byte 

Achtergrondkleur 

28 

Byte 

Tekenmodi 

34 

Word 

16 bits patroon 
voor lijnen 

36 

Word 

X-coordinaat van 
de cursor 

38 

Word 

Y-coordinaat van 
de cursor 

48 

Word 

Breedte van de 
cursor 

50 

Word 

Hoogte van de 
cursor 

52 

Long 

Pointer naar het 
huidige font 

56 

Byte 

Stijl van de letters 

58 

Word 

Hooqte van het 
font 
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De eerste pointer wijst al naar het 
hardware niveau. Waar is de eigenlij¬ 
ke BitMap te vinden, dus waar is het 
geheugen te vinden waarin het 
scherm is opgesiagen. Offset 28 
houdt bij met wat voor tekenmodus u 
werkt. Deze tekenmodus kunt u door¬ 
geven met behulp van de graphics li- 
brary functie SetDrMd(pointer naar 
RastPort,mode) De volgende teken¬ 
modi kunt u gebruiken: JAM1, JAM2, 
COMPLEMENT en INVERSEVID 
JAM1 betekent dat elke pixel de voor- 
grondkleur krijgt. COMPLEMENT 
geeft, zoals het woord al zegt, de 
pixels hun gecomplementeerde waar¬ 
de en INVERSEVID geeft de tekst een 
geinverteerd uiterlijk. De standaard 
modus is JAM2. Hierin wordt de te¬ 
kenkleur de voorgrondkleur. De rest 
wordt dan opgevuld met de achter- 
grondkleur. De modi zijn in Offset 28 
terug te vinden in eikaars uitsluitende 
bitcombinaties. JAM1 heeft de combi¬ 
natie 000, JAM2 heeft de combinatie 
001, COMPLEMENT moet het doen 
met de combinatie 010 en INVERSE¬ 
VID heeft de combinatie 100 toebe¬ 
deeld ge-kregen. Vanuit de RastPort 
is het ook mogelijk het font, dat op dat 
moment gebruikt wordt, te beinvloe- 
den. Op offset 52 is de pointer naar 
een TextFont structuur te vinden. 
Deze TextFont structuur omvat alle 
gegevens over het geselecteerde 
font. Tenslotte is er dan nog de stijl 
van het font. Deze is terug te vinden 
op offset 56. De stijlen zijn terug te vin¬ 
den als de volgende bitcombinaties: 

bit stijl 


0 1=onderstreept 

1 1=vetgedrukt 

2 1=italics of cursief 


Geen bit geselecteerd betekent de 
normale stijl. Zo, kort samengevat is 
de RastPort de verbinding tussen het 
hogere Intuition niveau en het lager 
gelegen hardware niveau. Zowel 
schermen als vensters hebben een 
RastPort. In C kunt u de RastPort vin¬ 
den met behulp van de structures 

lntuitionBase->ActiveWindow- 

>RPort 

en 

lntuitionBase->ActiveScreen- 

>RastPort 

Hier geldt ook weer dat de structure 
IntuitionBase en de include file ïntui- 
tion/intuition.h’ moet gebruiken. 


De bitmap 

Als laatste volgt er dan het hardware 
niveau. Als eerste structuur vinden we 
daar de BitMap structuur. In feite ver¬ 
zorgt zij het werkelijke contact met de 
RAM-banken. In deze RAM-banken is 
dan ook alle scherm informatie opge¬ 
slagen. De BitMap structuur is een 
heel korte structuur. Daarom hebben 
we deze ook in z’n geheel uitgespit. 
De BitMap structuur luidt als volgt: 


Offset 

type 

Omschrijving 

0 

Word 

het aantal bytes 
perschermregel 

2 

Word 

aant. schermregels 

4 

Byte 

ongebruikt 

5 

Byte 

aantal bitniveaus 

6 

Word 

ongebruikt 

8 

Long 

pointer naar 
bitniveau 1 

12 

Long 

pointer naar 
bitniveau 2 

16 

Long 

pointer naar 
bitniveau 3 

20 

Long 

pointer naar 
bitniveau 4 

24 

Long 

pointer naar 
bitniveau 5 

28 

Long 

pointer naar 
bitniveau 6 

32 

Long 

pointer naar 
bitniveau 7 

36 

Long 

pointer naar 
bitniveau 8 


U ziet de laatste twee pointers zijn ge- 
heugenadressen naar niet bestaande 
bitniveaus, of bitplanes. Deze zijn al 
vast gereserveerd voor de nieuwe ge¬ 
neratie grafische chips. 

Het startadres van de BitMap struc¬ 
tuur kunnen we terug vinden in de 
RastPort structuur. Immers, offset 4 
was een pointer naar de BitMap struc¬ 
tuur. 

PRINT PEEKL(WINDOW(8)+4) 


Zal het adres naar de BitMap afprinten 
waarin de RastPort, van uw Window 
of Scherm, gelegen is. In C zult u de 
structures weer door moeten spitten 
om het startadres te vinden. 

De ViewPort 

De ViewPort is een van de meest ele¬ 
mentaire grafische structuren in de 
Amiga. Het beinvloedt rechtstreeks de 
hardware componenten als de Cop- 
per en de Blitter. Met het programme¬ 
ren van de ViewPort structuur moet 
daarom ook enige voorzichtigheid in 
acht genomen worden. Niet dat de 
computer stuk kan raken door een 
fout maar een Guru-meditation is vaak 
wel onvermijdelijk. De enigste oplos¬ 
sing is dan een reset, en dit kost vaak 
weer wat tijd. De ViewPort structuur is 
vanuit BASIC te bereiken door middel 
van de opdracht: 

PEEKL(WINDOW(7)+46)+44 

Immers, de ViewPort structuur ligt op 
de 44e offset binnen de Screen struc¬ 
tuur, zoals we daarnet al gezien heb¬ 
ben. Wat is nu de betekenis van de 
ViewPort? We hebben net al gezegd 
dat de ViewPort een onderdeel van de 
Screen structuur is. Dus een scherm 
is in feite een ViewPort, of beter ge¬ 
zegd, de ViewPort is het kloppende 
hart van elk scherm. Het is mogelijk 
meerdere ViewPorts op het beeld¬ 
scherm te zetten, we kunnen immers 
meerdere schermen tegelijkertijd ope¬ 
nen. Hoe ziet de ViewPort structuur er 
nu uit? Hier volgen de belangrijkste 
elementen. 


Offset 

type 

omschrijving 

0 

Long 

pointer naar een 
volgende ViewPort 

4 

Long 

pointer naar de 
ColorMap 8 

20 

Long 

pointers naar 
Copperlijsten 
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Dus, eigenlijk goed bekeken, bepaalt 
het ViewPort mode register hoe het 
scherm er uit ziet. Wordt het een HAM 
scherm of moet een HIRES scherm 
worden. Komen er sprites op het 
scherm of niet. 

Tot slot 

Samenvattend kunnen we het volgen¬ 
de zeggen. Windows worden opge¬ 
bouwd in een Scherm. Zo wel Win¬ 
dows als Schermen hebben een Rast- 
Port structuur. Wat er op het beeld¬ 
scherm komt te staan, de eigenlijke 
data, moet in RAM staan. De adres¬ 
sen, waar de data in het geheugen 
staat, wordt vermeld in de BitMap 
structuur. Tenslotte is er dan nog de 
ViewPort. Deze is de allesomvattende 
structuur. Eigenlijk mag gezegd wor¬ 
den, alle wegen leiden naar de 
ViewPort. Zonder ViewPort geen 
scherm of window. De ViewPort bevat 
de data voor de grafische processo- 
ren. Wat voor kleuren worden er afge- 
beeld, wat voor soort scherm wordt 
het etcetera. Door te experimenteren 
met de verschillende structuren zult u 
snel doorhebben hoe het Amiga won¬ 
der in elkaar zit. Wees niet bang eens 
een paar waarden te veranderen in de 
structuren, uw computer gaat er niet 
kapot van. Het ergste wat er kan ge¬ 
beuren is dat u, of eigenlijk uw compu¬ 
ter, een Guru-meditation krijgt. 

JOHAN & JOHAN 


AMIGA BUSWARE 


Compleet assortiment Amiga PDS software voor ƒ 11,- per schijf.Vraag nu een gratis catalogus aan of 
bestel voor ƒ 11,- de speciale introductiediskette, namelijk: 

de Amiga B usware Introschijf 

Dit is een schijf uit het Busware assortiment, die we samen met een aantal Amiga specialisten heb¬ 
ben samengesteld. Daarop staat de volgende selektie: 

Grafisch demopakket met workbench schermgrapjes, waaronder Wave Bench, Melt en Dropshadow 
Gauge om te bepalen hoevel geheugen er vrij is 

Record Player (om zelf demonstraties te maken, alle muis en toetsbewegingen kunnen herhaald worden) 

Helios Mouse (maakt venster, waar de muis is, actief) 

Pins (grafisch programma) 

Asteroids (ruimtespel) 

DOS kwik Om meer op schijf te krijgen 

Drunken Mouse (de muis gaat rare bewegingen maken op het scherm) 

Backgammon spelprogramma 

X-lcon Om programma’s, die geen ICON hebben, toch te kunnen starten met Icon 
Conman (CLI Editor) 

Bij deze introductieschijf doen we natuurlijk ook een catalogus van onze andere Amiga Busware. 

bel: 020-273198 /02152-62343 

Of maak ƒ11,- over op giro 3157656 van Infolist Huizen (girocheck sturen kan ook naar PB 112, 1260 AC Blaricum). 
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24 

Word 

breedte van het 
scherm 

26 

Word 

hoogte van het 
scherm 

32 


Word ViewPort 
modi 


Met de eerste offset is weer mogelijk 
om de volgende ViewPort, dus de 
ViewPort van een ander scherm, te 
vinden. Het 2e longword, dus offset 4, 
is een pointer naar een ColorMap. 
Hierin staan, afhankelijk van de diep¬ 
te van het scherm, de kleuren ver¬ 
meldt. Offset 8 tot 20 zijn pointers naar 
Copperlijsten. Een Copperlijst is een 
lijst van instructies die gebruikt wor¬ 
den door de grafische coprocessor, 
Copper genaamd, om het beeld¬ 
scherm op te bouwen. De Copper is 
een coprocessor met een kleine in¬ 
structie set te weten, Wait, Move en 
Skip. Met deze drie instructies is zij in 


staat de ingewikkelde Intuition scher¬ 
men op te bouwen. In offset 24 en 26 
worden respectievelijk de breedte en 
de hoogte van het scherm (of eigenlijk 
de ViewPort) geschreven. Als laatste 
is er dan nog de offset 32. Hierin staan 
de ViewPort modi. Wat wordt hierin 
bepaalt? Een overzicht: 

Bit Omschrijving 


1 GenLock Video 

2 InterLace 

6 PFBA, prioriteit in Dual 
Playfield 

7 Extra HalfBrite 

8 GenLock Audio 

10 Dual Playfield 

11 Hold and Modify 

13 ViewPort Hide 

14 Sprites 

15 Hires 






